[Xrms-cvs] xrms/include utils-interface.php,1.109,1.110

[Jean N. H. <jnh...@us...>]

Update of /cvsroot/xrms/xrms/include
In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv25493

Modified Files:
	utils-interface.php 
Log Message:
Ad centralised function for Buil_Menu_Company_Source

Index: utils-interface.php
===================================================================
RCS file: /cvsroot/xrms/xrms/include/utils-interface.php,v
retrieving revision 1.109
retrieving revision 1.110
diff -C2 -d -r1.109 -r1.110
*** utils-interface.php	1 Oct 2006 10:47:29 -0000	1.109
--- utils-interface.php	17 Dec 2006 10:50:16 -0000	1.110
***************
*** 576,579 ****
--- 576,602 ----
  } //end build_company_type_menu fn
  
+ /**
+  * Retrieve menu of Company Source
+  *
+  * @param  handle  $con database connection
+  * @param  integer $company_source_id to set the menu to (default)
+  * @param  boolean $blank_company_type include a blank area
+  * @return string  $company_source_menu the html menu to display
+  */
+ 
+ function build_company_source_menu(&$con, $company_source_id='', $blank_company_source=false) {
+ 
+     $sql = "select company_source_pretty_name, company_source_id from company_sources where company_source_record_status = 'a' order by company_source_pretty_name";
+ 
+     $rst = $con->execute($sql);
+     if (!$rst) {
+         db_error_handler($con, $sql);
+     }
+     $crm_company_source_menu = $rst->getmenu2('company_source_id', $company_source_id, $blank_company_source);
+     $rst->close();
+ 
+     return $crm_company_source_menu;
+ } //end build_company_source_menu fn
+ 
  /*****************************************************************************/
  /**
***************
*** 1128,1131 ****
--- 1151,1157 ----
  /**
   * $Log$
+  * Revision 1.110  2006/12/17 10:50:16  jnhayart
+  * Ad centralised function for Buil_Menu_Company_Source
+  *
   * Revision 1.109  2006/10/01 10:47:29  braverock
   * - revert custom1-4 menu functions, company custom1-4 will stay simple strings