]> CyberLeo.Net >> Repos - Github/sugarcrm.git/blob - service/core/SoapHelperWebService.php
Release 6.5.0
[Github/sugarcrm.git] / service / core / SoapHelperWebService.php
1 <?php
2 if(!defined('sugarEntry') || !sugarEntry) die('Not A Valid Entry Point');
3 /*********************************************************************************
4  * SugarCRM Community Edition is a customer relationship management program developed by
5  * SugarCRM, Inc. Copyright (C) 2004-2012 SugarCRM Inc.
6  * 
7  * This program is free software; you can redistribute it and/or modify it under
8  * the terms of the GNU Affero General Public License version 3 as published by the
9  * Free Software Foundation with the addition of the following permission added
10  * to Section 15 as permitted in Section 7(a): FOR ANY PART OF THE COVERED WORK
11  * IN WHICH THE COPYRIGHT IS OWNED BY SUGARCRM, SUGARCRM DISCLAIMS THE WARRANTY
12  * OF NON INFRINGEMENT OF THIRD PARTY RIGHTS.
13  * 
14  * This program is distributed in the hope that it will be useful, but WITHOUT
15  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
16  * FOR A PARTICULAR PURPOSE.  See the GNU Affero General Public License for more
17  * details.
18  * 
19  * You should have received a copy of the GNU Affero General Public License along with
20  * this program; if not, see http://www.gnu.org/licenses or write to the Free
21  * Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
22  * 02110-1301 USA.
23  * 
24  * You can contact SugarCRM, Inc. headquarters at 10050 North Wolfe Road,
25  * SW2-130, Cupertino, CA 95014, USA. or at email address contact@sugarcrm.com.
26  * 
27  * The interactive user interfaces in modified source and object code versions
28  * of this program must display Appropriate Legal Notices, as required under
29  * Section 5 of the GNU Affero General Public License version 3.
30  * 
31  * In accordance with Section 7(b) of the GNU Affero General Public License version 3,
32  * these Appropriate Legal Notices must retain the display of the "Powered by
33  * SugarCRM" logo. If the display of the logo is not reasonably feasible for
34  * technical reasons, the Appropriate Legal Notices must display the words
35  * "Powered by SugarCRM".
36  ********************************************************************************/
37
38
39 global $disable_date_format;
40 $disable_date_format = true;
41
42 class SoapHelperWebServices {
43
44         function get_field_list($value, $fields, $translate=true)
45         {
46                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->get_field_list('.print_r($value, true).', '.print_r($fields, true).", $translate");
47                 $module_fields = array();
48                 $link_fields = array();
49                 if(!empty($value->field_defs)){
50
51                         foreach($value->field_defs as $var){
52                                 if(!empty($fields) && !in_array( $var['name'], $fields))continue;
53                                 if(isset($var['source']) && ($var['source'] != 'db' && $var['source'] != 'non-db' && $var['source'] != 'custom_fields') && $var['name'] != 'email1' && $var['name'] != 'email2' && (!isset($var['type'])|| $var['type'] != 'relate'))continue;
54                                 if ($var['source'] == 'non_db' && (isset($var['type']) && $var['type'] != 'link')) {
55                                         continue;
56                                 }
57                                 $required = 0;
58                                 $options_dom = array();
59                                 $options_ret = array();
60                                 // Apparently the only purpose of this check is to make sure we only return fields
61                                 //   when we've read a record.  Otherwise this function is identical to get_module_field_list
62
63                                 if( isset($var['required']) && $var['required'] && $var['required'] !== 'false' ){
64                                         $required = 1;
65                                 }
66                                 if(isset($var['options'])){
67                                         $options_dom = translate($var['options'], $value->module_dir);
68                                         if(!is_array($options_dom)) $options_dom = array();
69                                         foreach($options_dom as $key=>$oneOption)
70                                                 $options_ret[$key] = $this->get_name_value($key,$oneOption);
71                                 }
72
73                     if(!empty($var['dbType']) && $var['type'] == 'bool') {
74                         $options_ret['type'] = $this->get_name_value('type', $var['dbType']);
75                     }
76
77                     $entry = array();
78                     $entry['name'] = $var['name'];
79                     $entry['type'] = $var['type'];
80                     if ($var['type'] == 'link') {
81                             $entry['relationship'] = (isset($var['relationship']) ? $var['relationship'] : '');
82                             $entry['module'] = (isset($var['module']) ? $var['module'] : '');
83                             $entry['bean_name'] = (isset($var['bean_name']) ? $var['bean_name'] : '');
84                                         $link_fields[$var['name']] = $entry;
85                     } else {
86                             if($translate) {
87                                 $entry['label'] = isset($var['vname']) ? translate($var['vname'], $value->module_dir) : $var['name'];
88                             } else {
89                                 $entry['label'] = isset($var['vname']) ? $var['vname'] : $var['name'];
90                             }
91                             $entry['required'] = $required;
92                             $entry['options'] = $options_ret;
93                                         if(isset($var['default'])) {
94                                            $entry['default_value'] = $var['default'];
95                                         }
96                                         $module_fields[$var['name']] = $entry;
97                     } // else
98                         } //foreach
99                 } //if
100
101                 if($value->module_dir == 'Bugs'){
102                         require_once('modules/Releases/Release.php');
103                         $seedRelease = new Release();
104                         $options = $seedRelease->get_releases(TRUE, "Active");
105                         $options_ret = array();
106                         foreach($options as $name=>$value){
107                                 $options_ret[] =  array('name'=> $name , 'value'=>$value);
108                         }
109                         if(isset($module_fields['fixed_in_release'])){
110                                 $module_fields['fixed_in_release']['type'] = 'enum';
111                                 $module_fields['fixed_in_release']['options'] = $options_ret;
112                         }
113                         if(isset($module_fields['release'])){
114                                 $module_fields['release']['type'] = 'enum';
115                                 $module_fields['release']['options'] = $options_ret;
116                         }
117                         if(isset($module_fields['release_name'])){
118                                 $module_fields['release_name']['type'] = 'enum';
119                                 $module_fields['release_name']['options'] = $options_ret;
120                         }
121                 }
122
123                 if(isset($value->assigned_user_name) && isset($module_fields['assigned_user_id'])) {
124                         $module_fields['assigned_user_name'] = $module_fields['assigned_user_id'];
125                         $module_fields['assigned_user_name']['name'] = 'assigned_user_name';
126                 }
127                 if(isset($module_fields['modified_user_id'])) {
128                         $module_fields['modified_by_name'] = $module_fields['modified_user_id'];
129                         $module_fields['modified_by_name']['name'] = 'modified_by_name';
130                 }
131                 if(isset($module_fields['created_by'])) {
132                         $module_fields['created_by_name'] = $module_fields['created_by'];
133                         $module_fields['created_by_name']['name'] = 'created_by_name';
134                 }
135
136         $return = array('module_fields' => $module_fields, 'link_fields' => $link_fields);
137         $GLOBALS['log']->info('End: SoapHelperWebServices->get_field_list ->> '.print_r($return, true));
138                 return $return;
139         } // fn
140
141         function setFaultObject($errorObject) {
142                 if ($this->isLogLevelDebug()) {
143                         $GLOBALS['log']->debug('SoapHelperWebServices->setFaultObject - ' . var_export($errorObject, true));
144                 }
145                 global $service_object;
146                 $service_object->error($errorObject);
147         } // fn
148
149 /**
150  * Validate the user session based on user name and password hash.
151  *
152  * @param string $user_name -- The user name to create a session for
153  * @param string $password -- The MD5 sum of the user's password
154  * @return true -- If the session is created
155  * @return false -- If the session is not created
156  */
157 function validate_user($user_name, $password){
158         $GLOBALS['log']->info('Begin: SoapHelperWebServices->validate_user');
159         global $server, $current_user, $sugar_config, $system_config;
160         $user = new User();
161         $user->user_name = $user_name;
162         $system_config = new Administration();
163         $system_config->retrieveSettings('system');
164         $authController = new AuthenticationController((!empty($sugar_config['authenticationClass'])? $sugar_config['authenticationClass'] : 'SugarAuthenticate'));
165         // Check to see if the user name and password are consistent.
166         if($user->authenticate_user($password)){
167                 // we also need to set the current_user.
168                 $user->retrieve($user->id);
169                 $current_user = $user;
170
171                 $GLOBALS['log']->info('End: SoapHelperWebServices->validate_user - validation passed');
172                 return true;
173         }else if(function_exists('mcrypt_cbc')){
174                 $password = $this->decrypt_string($password);
175                 if($authController->login($user_name, $password) && isset($_SESSION['authenticated_user_id'])){
176                         $user->retrieve($_SESSION['authenticated_user_id']);
177                         $current_user = $user;
178                         $GLOBALS['log']->info('End: SoapHelperWebServices->validate_user - validation passed');
179                         return true;
180                 }
181         }else{
182                 $GLOBALS['log']->fatal("SECURITY: failed attempted login for $user_name using SOAP api");
183                 $server->setError("Invalid username and/or password");
184                 return false;
185         }
186
187 }
188
189         /**
190          * Validate the provided session information is correct and current.  Load the session.
191          *
192          * @param String $session_id -- The session ID that was returned by a call to login.
193          * @return true -- If the session is valid and loaded.
194          * @return false -- if the session is not valid.
195          */
196         function validate_authenticated($session_id){
197                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->validate_authenticated');
198                 if(!empty($session_id)){
199
200                         // only initialize session once in case this method is called multiple times
201                         if(!session_id()) {
202                            session_id($session_id);
203                            session_start();
204                         }
205
206                         if(!empty($_SESSION['is_valid_session']) && $this->is_valid_ip_address('ip_address') && $_SESSION['type'] == 'user'){
207
208                                 global $current_user;
209                                 require_once('modules/Users/User.php');
210                                 $current_user = new User();
211                                 $current_user->retrieve($_SESSION['user_id']);
212                                 $this->login_success();
213                                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->validate_authenticated - passed');
214                                 $GLOBALS['log']->info('End: SoapHelperWebServices->validate_authenticated');
215                                 return true;
216                         }
217
218                         $GLOBALS['log']->debug("calling destroy");
219                         session_destroy();
220                 }
221                 LogicHook::initialize();
222                 $GLOBALS['logic_hook']->call_custom_logic('Users', 'login_failed');
223                 $GLOBALS['log']->info('End: SoapHelperWebServices->validate_authenticated - validation failed');
224                 return false;
225         }
226
227         /**
228          * Use the same logic as in SugarAuthenticate to validate the ip address
229          *
230          * @param string $session_var
231          * @return bool - true if the ip address is valid, false otherwise.
232          */
233         function is_valid_ip_address($session_var){
234                 global $sugar_config;
235                 // grab client ip address
236                 $clientIP = query_client_ip();
237                 $classCheck = 0;
238                 // check to see if config entry is present, if not, verify client ip
239                 if (!isset ($sugar_config['verify_client_ip']) || $sugar_config['verify_client_ip'] == true) {
240                         // check to see if we've got a current ip address in $_SESSION
241                         // and check to see if the session has been hijacked by a foreign ip
242                         if (isset ($_SESSION[$session_var])) {
243                                 $session_parts = explode(".", $_SESSION[$session_var]);
244                                 $client_parts = explode(".", $clientIP);
245                     if(count($session_parts) < 4) {
246                         $classCheck = 0;
247                     }else {
248                                 // match class C IP addresses
249                                 for ($i = 0; $i < 3; $i ++) {
250                                         if ($session_parts[$i] == $client_parts[$i]) {
251                                                 $classCheck = 1;
252                                                         continue;
253                                         } else {
254                                                 $classCheck = 0;
255                                                 break;
256                                                 }
257                                         }
258                         }
259                                         // we have a different IP address
260                                         if ($_SESSION[$session_var] != $clientIP && empty ($classCheck)) {
261                                                 $GLOBALS['log']->fatal("IP Address mismatch: SESSION IP: {$_SESSION[$session_var]} CLIENT IP: {$clientIP}");
262                                                 return false;
263                                         }
264                                 } else {
265                                         return false;
266                                 }
267                 }
268                 return true;
269         }
270
271         function checkSessionAndModuleAccess($session, $login_error_key, $module_name, $access_level, $module_access_level_error_key, $errorObject) {
272                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->checkSessionAndModuleAccess - ' . $module_name);
273                 if(!$this->validate_authenticated($session)){
274                         $GLOBALS['log']->error('SoapHelperWebServices->checkSessionAndModuleAccess - validate_authenticated failed - ' . $module_name);
275                         $errorObject->set_error('invalid_session');
276                         $this->setFaultObject($errorObject);
277                         $GLOBALS['log']->info('End: SoapHelperWebServices->checkSessionAndModuleAccess -' . $module_name);
278                         return false;
279                 } // if
280
281                 global  $beanList, $beanFiles;
282                 if (!empty($module_name)) {
283                         if(empty($beanList[$module_name])){
284                                 $GLOBALS['log']->error('SoapHelperWebServices->checkSessionAndModuleAccess - module does not exists - ' . $module_name);
285                                 $errorObject->set_error('no_module');
286                                 $this->setFaultObject($errorObject);
287                                 $GLOBALS['log']->info('End: SoapHelperWebServices->checkSessionAndModuleAccess -' . $module_name);
288                                 return false;
289                         } // if
290                         global $current_user;
291                         if(!$this->check_modules_access($current_user, $module_name, $access_level)){
292                                 $GLOBALS['log']->error('SoapHelperWebServices->checkSessionAndModuleAccess - no module access - ' . $module_name);
293                                 $errorObject->set_error('no_access');
294                                 $this->setFaultObject($errorObject);
295                                 $GLOBALS['log']->info('End: SoapHelperWebServices->checkSessionAndModuleAccess - ' . $module_name);
296                                 return false;
297                         }
298                 } // if
299                 $GLOBALS['log']->info('End: SoapHelperWebServices->checkSessionAndModuleAccess - ' . $module_name);
300                 return true;
301         } // fn
302
303         function checkACLAccess($bean, $viewType, $errorObject, $error_key) {
304                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->checkACLAccess');
305                 if(!$bean->ACLAccess($viewType)) {
306                         $GLOBALS['log']->error('SoapHelperWebServices->checkACLAccess - no ACLAccess');
307                         $errorObject->set_error($error_key);
308                         $this->setFaultObject($errorObject);
309                         $GLOBALS['log']->info('End: SoapHelperWebServices->checkACLAccess');
310                         return false;
311                 } // if
312                 $GLOBALS['log']->info('End: SoapHelperWebServices->checkACLAccess');
313                 return true;
314         } // fn
315
316         function checkQuery($errorObject, $query, $order_by = '')
317     {
318         require_once 'include/SugarSQLValidate.php';
319         $valid = new SugarSQLValidate();
320         if(!$valid->validateQueryClauses($query, $order_by)) {
321                 $GLOBALS['log']->error("SoapHelperWebServices->checkQuery - bad query: $query $order_by");
322             $errorObject->set_error('no_access');
323                 $this->setFaultObject($errorObject);
324                 return false;
325         }
326         return true;
327     }
328
329         function get_name_value($field,$value){
330                 return array('name'=>$field, 'value'=>$value);
331         }
332
333         function get_user_module_list($user){
334                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->get_user_module_list');
335                 global $app_list_strings, $current_language;
336                 $app_list_strings = return_app_list_strings_language($current_language);
337                 $modules = query_module_access_list($user);
338                 ACLController :: filterModuleList($modules, false);
339                 global $modInvisList;
340
341                 foreach($modInvisList as $invis){
342                         $modules[$invis] = 'read_only';
343                 }
344
345                 $actions = ACLAction::getUserActions($user->id,true);
346                 foreach($actions as $key=>$value){
347                         if(isset($value['module']) && $value['module']['access']['aclaccess'] < ACL_ALLOW_ENABLED){
348                                 if ($value['module']['access']['aclaccess'] == ACL_ALLOW_DISABLED) {
349                                         unset($modules[$key]);
350                                 } else {
351                                         $modules[$key] = 'read_only';
352                                 } // else
353                         } else {
354                                 $modules[$key] = '';
355                         } // else
356                 } // foreach
357                 $GLOBALS['log']->info('End: SoapHelperWebServices->get_user_module_list');
358                 return $modules;
359
360         }
361
362         function check_modules_access($user, $module_name, $action='write'){
363                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->check_modules_access');
364                 if(!isset($_SESSION['avail_modules'])){
365                         $_SESSION['avail_modules'] = $this->get_user_module_list($user);
366                 }
367                 if(isset($_SESSION['avail_modules'][$module_name])){
368                         if($action == 'write' && $_SESSION['avail_modules'][$module_name] == 'read_only'){
369                                 if(is_admin($user)) {
370                                         $GLOBALS['log']->info('End: SoapHelperWebServices->check_modules_access - SUCCESS: Admin can even write to read_only module');
371                                         return true;
372                                 } // if
373                                 $GLOBALS['log']->info('End: SoapHelperWebServices->check_modules_access - FAILED: write action on read_only module only available to admins');
374                                 return false;
375                         }elseif($action == 'write' && strcmp(strtolower($module_name), 'users') == 0 && !$user->isAdminForModule($module_name)){
376                  //rrs bug: 46000 - If the client is trying to write to the Users module and is not an admin then we need to stop them
377                 return false;
378             }
379                         $GLOBALS['log']->info('End: SoapHelperWebServices->check_modules_access - SUCCESS');
380                         return true;
381                 }
382                 $GLOBALS['log']->info('End: SoapHelperWebServices->check_modules_access - FAILED: Module info not available in $_SESSION');
383                 return false;
384
385     }
386
387
388         function get_name_value_list($value){
389                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->get_name_value_list');
390                 global $app_list_strings;
391                 $list = array();
392                 if(!empty($value->field_defs)){
393                         if(isset($value->assigned_user_name)) {
394                                 $list['assigned_user_name'] = $this->get_name_value('assigned_user_name', $value->assigned_user_name);
395                         }
396                         if(isset($value->modified_by_name)) {
397                                 $list['modified_by_name'] = $this->get_name_value('modified_by_name', $value->modified_by_name);
398                         }
399                         if(isset($value->created_by_name)) {
400                                 $list['created_by_name'] = $this->get_name_value('created_by_name', $value->created_by_name);
401                         }
402                         foreach($value->field_defs as $var){
403                                 if(isset($var['source']) && ($var['source'] != 'db' && $var['source'] != 'custom_fields') && $var['name'] != 'email1' && $var['name'] != 'email2' && (!isset($var['type'])|| $var['type'] != 'relate'))continue;
404
405                                 if(isset($value->$var['name'])){
406                                         $val = $value->$var['name'];
407                                         $type = $var['type'];
408
409                                         if(strcmp($type, 'date') == 0){
410                                                 $val = substr($val, 0, 10);
411                                         }elseif(strcmp($type, 'enum') == 0 && !empty($var['options'])){
412                                                 //$val = $app_list_strings[$var['options']][$val];
413                                         }
414
415                                         $list[$var['name']] = $this->get_name_value($var['name'], $val);
416                                 }
417                         }
418                 }
419                 $GLOBALS['log']->info('End: SoapHelperWebServices->get_name_value_list');
420                 return $list;
421
422         }
423
424         function filter_fields($value, $fields) {
425                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->filter_fields');
426                 global $invalid_contact_fields;
427                 $filterFields = array();
428                 foreach($fields as $field){
429                         if (is_array($invalid_contact_fields)) {
430                                 if (in_array($field, $invalid_contact_fields)) {
431                                         continue;
432                                 } // if
433                         } // if
434                         if (isset($value->field_defs[$field])) {
435                                 $var = $value->field_defs[$field];
436                                 if(isset($var['source']) && ($var['source'] != 'db' && $var['source'] != 'custom_fields') && $var['name'] != 'email1' && $var['name'] != 'email2' && (!isset($var['type'])|| $var['type'] != 'relate')) {
437
438                                         if($value->module_dir == 'Emails' && (($var['name'] == 'description') || ($var['name'] == 'description_html') || ($var['name'] == 'from_addr_name') || ($var['name'] == 'reply_to_addr') || ($var['name'] == 'to_addrs_names') || ($var['name'] == 'cc_addrs_names') || ($var['name'] == 'bcc_addrs_names') || ($var['name'] == 'raw_source'))) {
439
440                                         } else {
441                                                 continue;
442                                         }
443                                 }
444                         } // if
445                         $filterFields[] = $field;
446                 } // foreach
447                 $GLOBALS['log']->info('End: SoapHelperWebServices->filter_fields');
448                 return $filterFields;
449         } // fn
450
451         function get_name_value_list_for_fields($value, $fields) {
452                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->get_name_value_list_for_fields');
453                 global $app_list_strings;
454                 global $invalid_contact_fields;
455
456                 $list = array();
457                 if(!empty($value->field_defs)){
458                         if(empty($fields))$fields = array_keys($value->field_defs);
459                         if(isset($value->assigned_user_name) && in_array('assigned_user_name', $fields)) {
460                                 $list['assigned_user_name'] = $this->get_name_value('assigned_user_name', $value->assigned_user_name);
461                         }
462                         if(isset($value->modified_by_name) && in_array('modified_by_name', $fields)) {
463                                 $list['modified_by_name'] = $this->get_name_value('modified_by_name', $value->modified_by_name);
464                         }
465                         if(isset($value->created_by_name) && in_array('created_by_name', $fields)) {
466                                 $list['created_by_name'] = $this->get_name_value('created_by_name', $value->created_by_name);
467                         }
468
469                         $filterFields = $this->filter_fields($value, $fields);
470
471
472                         foreach($filterFields as $field){
473                                 $var = $value->field_defs[$field];
474                                 if(isset($value->$var['name'])){
475                                         $val = $value->$var['name'];
476                                         $type = $var['type'];
477
478                                         if(strcmp($type, 'date') == 0){
479                                                 $val = substr($val, 0, 10);
480                                         }elseif(strcmp($type, 'enum') == 0 && !empty($var['options'])){
481                                                 //$val = $app_list_strings[$var['options']][$val];
482                                         }
483
484                                         $list[$var['name']] = $this->get_name_value($var['name'], $val);
485                                 } // if
486                         } // foreach
487                 } // if
488                 $GLOBALS['log']->info('End: SoapHelperWebServices->get_name_value_list_for_fields');
489                 if ($this->isLogLevelDebug()) {
490                         $GLOBALS['log']->debug('SoapHelperWebServices->get_name_value_list_for_fields - return data = ' . var_export($list, true));
491                 } // if
492                 return $list;
493
494         } // fn
495
496         function array_get_name_value_list($array){
497                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->array_get_name_value_list');
498                 $list = array();
499                 foreach($array as $name=>$value){
500                         $list[$name] = $this->get_name_value($name, $value);
501                 }
502                 $GLOBALS['log']->info('End: SoapHelperWebServices->array_get_name_value_list');
503                 return $list;
504
505         }
506
507         function array_get_name_value_lists($array){
508                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->array_get_name_value_lists');
509             $list = array();
510             foreach($array as $name=>$value){
511                 $tmp_value=$value;
512                 if(is_array($value)){
513                     $tmp_value = array();
514                     foreach($value as $k=>$v){
515                         $tmp_value[$k] = $this->get_name_value($k, $v);
516                     }
517                 }
518                 $list[$name] = $this->get_name_value($name, $tmp_value);
519             }
520                 $GLOBALS['log']->info('End: SoapHelperWebServices->array_get_name_value_lists');
521             return $list;
522         }
523
524         function name_value_lists_get_array($list){
525                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->name_value_lists_get_array');
526             $array = array();
527             foreach($list as $key=>$value){
528                 if(isset($value['value']) && isset($value['name'])){
529                     if(is_array($value['value'])){
530                         $array[$value['name']]=array();
531                         foreach($value['value'] as $v){
532                             $array[$value['name']][$v['name']]=$v['value'];
533                         }
534                     }else{
535                         $array[$value['name']]=$value['value'];
536                     }
537                 }
538             }
539                 $GLOBALS['log']->info('End: SoapHelperWebServices->name_value_lists_get_array');
540             return $array;
541         }
542
543         function array_get_return_value($array, $module){
544
545                 $GLOBALS['log']->info('Begin/End: SoapHelperWebServices->array_get_return_value');
546                 return Array('id'=>$array['id'],
547                                         'module_name'=> $module,
548                                         'name_value_list'=>$this->array_get_name_value_list($array)
549                                         );
550         }
551
552         function get_return_value_for_fields($value, $module, $fields) {
553                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->get_return_value_for_fields');
554                 global $module_name, $current_user;
555                 $module_name = $module;
556                 if($module == 'Users' && $value->id != $current_user->id){
557                         $value->user_hash = '';
558                 }
559                 $GLOBALS['log']->info('End: SoapHelperWebServices->get_return_value_for_fields');
560                 return Array('id'=>$value->id,
561                                         'module_name'=> $module,
562                                         'name_value_list'=>$this->get_name_value_list_for_fields($value, $fields)
563                                         );
564         }
565
566 /**
567  * Fetch and array of related records
568  *
569  * @param String $bean -- Primary record
570  * @param String $link_field_name -- The name of the relationship
571  * @param Array $link_module_fields -- The keys of the array are the SugarBean attributes, the values of the array are the values the attributes should have.
572  * @param String $optional_where -- IGNORED
573  * @return Array 'rows/fields_set_on_rows' -- The list of records and what fields were actually set for thos erecords
574 */
575
576         function getRelationshipResults($bean, $link_field_name, $link_module_fields, $optional_where = '') {
577                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->getRelationshipResults');
578                 global $current_user, $disable_date_format,  $timedate;
579
580                 $bean->load_relationship($link_field_name);
581                 if (isset($bean->$link_field_name)) {
582             $params = array();
583             if (!empty($optional_where))
584             {
585                 $params['where'] = $optional_where;
586             }
587                         //First get all the related beans
588             $related_beans = $bean->$link_field_name->getBeans($params);
589             if(isset($related_beans[0])) {
590                 // use first bean to filter fields since all records have same module
591                 // and  $this->filter_fields doesn't use ACLs
592                 $filterFields = $this->filter_fields($related_beans[0], $link_module_fields);
593             } else {
594                 $filterFields = $this->filter_fields(null, $link_module_fields);
595             }
596                         $list = array();
597             foreach($related_beans as $id => $bean)
598             {
599                 $row = array();
600                 //Create a list of field/value rows based on $link_module_fields
601
602                 foreach ($filterFields as $field) {
603                     if (isset($bean->$field))
604                     {
605                         if (isset($bean->field_defs[$field]['type']) && $bean->field_defs[$field]['type'] == 'date') {
606                             $row[$field] = $timedate->to_display_date_time($bean->$field);
607                         }
608                         $row[$field] = $bean->$field;
609                     }
610                     else
611                     {
612                         $row[$field] = "";
613                     }
614                 }
615                 //Users can't see other user's hashes
616                 if(is_a($bean, 'User') && $current_user->id != $bean->id && isset($row['user_hash'])) {
617                     $row['user_hash'] = "";
618                 }
619                 $list[] = $row;
620             }
621                         $GLOBALS['log']->info('End: SoapHelperWebServices->getRelationshipResults');
622                         return array('rows' => $list, 'fields_set_on_rows' => $filterFields);
623                 } else {
624                         $GLOBALS['log']->info('End: SoapHelperWebServices->getRelationshipResults - ' . $link_field_name . ' relationship does not exists');
625                         return false;
626                 } // else
627
628         } // fn
629
630         function get_return_value_for_link_fields($bean, $module, $link_name_to_value_fields_array) {
631                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->get_return_value_for_link_fields');
632                 global $module_name, $current_user;
633                 $module_name = $module;
634                 if($module == 'Users' && $bean->id != $current_user->id){
635                         $bean->user_hash = '';
636                 }
637
638                 if (empty($link_name_to_value_fields_array) || !is_array($link_name_to_value_fields_array)) {
639                         $GLOBALS['log']->debug('End: SoapHelperWebServices->get_return_value_for_link_fields - Invalid link information passed ');
640                         return array();
641                 }
642
643                 if ($this->isLogLevelDebug()) {
644                         $GLOBALS['log']->debug('SoapHelperWebServices->get_return_value_for_link_fields - link info = ' . var_export($link_name_to_value_fields_array, true));
645                 } // if
646                 $link_output = array();
647                 foreach($link_name_to_value_fields_array as $link_name_value_fields) {
648                         if (!is_array($link_name_value_fields) || !isset($link_name_value_fields['name']) || !isset($link_name_value_fields['value'])) {
649                                 continue;
650                         }
651                         $link_field_name = $link_name_value_fields['name'];
652                         $link_module_fields = $link_name_value_fields['value'];
653                         if (is_array($link_module_fields) && !empty($link_module_fields)) {
654                                 $result = $this->getRelationshipResults($bean, $link_field_name, $link_module_fields);
655                                 if (!$result) {
656                                         $link_output[] = array('name' => $link_field_name, 'records' => array());
657                                         continue;
658                                 }
659                                 $list = $result['rows'];
660                                 $filterFields = $result['fields_set_on_rows'];
661                                 if ($list) {
662                                         $rowArray = array();
663                                         foreach($list as $row) {
664                                                 $nameValueArray = array();
665                                                 foreach ($filterFields as $field) {
666                                                         $nameValue = array();
667                                                         if (isset($row[$field])) {
668                                                                 $nameValueArray[$field] = $this->get_name_value($field, $row[$field]);
669                                                         } // if
670                                                 } // foreach
671                                                 $rowArray[] = $nameValueArray;
672                                         } // foreach
673                                         $link_output[] = array('name' => $link_field_name, 'records' => $rowArray);
674                                 } // if
675                         } // if
676                 } // foreach
677                 $GLOBALS['log']->debug('End: SoapHelperWebServices->get_return_value_for_link_fields');
678                 if ($this->isLogLevelDebug()) {
679                         $GLOBALS['log']->debug('SoapHelperWebServices->get_return_value_for_link_fields - output = ' . var_export($link_output, true));
680                 } // if
681                 return $link_output;
682         } // fn
683
684         /**
685          *
686          * @param String $module_name -- The name of the module that the primary record is from.  This name should be the name the module was developed under (changing a tab name is studio does not affect the name that should be passed into this method).
687          * @param String $module_id -- The ID of the bean in the specified module
688          * @param String $link_field_name - The relationship name for which to create realtionships.
689          * @param Array $related_ids -- The array of ids for which we want to create relationships
690          * @param Array $name_value_list -- The array of name value pair of additional attributes to be set when adding this relationship
691          * @param int delete -- If 0 then add relationship else delete this relationship data
692          * @return true on success, false on failure
693          */
694         function new_handle_set_relationship($module_name, $module_id, $link_field_name, $related_ids, $name_value_list, $delete) {
695                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->new_handle_set_relationship');
696             global  $beanList, $beanFiles;
697
698             if(empty($beanList[$module_name])) {
699                         $GLOBALS['log']->debug('SoapHelperWebServices->new_handle_set_relationship - module ' . $module_name . ' does not exists' );
700                         $GLOBALS['log']->info('End: SoapHelperWebServices->new_handle_set_relationship');
701                 return false;
702             } // if
703             $class_name = $beanList[$module_name];
704             require_once($beanFiles[$class_name]);
705             $mod = new $class_name();
706             $mod->retrieve($module_id);
707                 if(!$mod->ACLAccess('DetailView')){
708                         $GLOBALS['log']->info('End: SoapHelperWebServices->new_handle_set_relationship');
709                         return false;
710                 }
711
712                 if ($mod->load_relationship($link_field_name)) {
713                         if (!$delete) {
714                                 $name_value_pair = array();
715                                 if (!empty($name_value_list)) {
716                                         $relFields = $mod->$link_field_name->getRelatedFields();
717                                         if(!empty($relFields)){
718                                                 $relFieldsKeys = array_keys($relFields);
719                                                 foreach($name_value_list as $key => $value) {
720                                                         if (in_array($value['name'], $relFieldsKeys)) {
721                                                                 $name_value_pair[$value['name']] = $value['value'];
722                                                         } // if
723                                                 } // foreach
724                                         } // if
725                                 }
726                                 $mod->$link_field_name->add($related_ids, $name_value_pair);
727                         } else {
728                                 foreach($related_ids as $id) {
729                                         $mod->$link_field_name->delete($module_id, $id);
730                                 } // foreach
731                         } // else
732                         $GLOBALS['log']->info('End: SoapHelperWebServices->new_handle_set_relationship');
733                         return true;
734                 } else {
735                         $GLOBALS['log']->info('End: SoapHelperWebServices->new_handle_set_relationship');
736                         return false;
737                 }
738         }
739
740         function new_handle_set_entries($module_name, $name_value_lists, $select_fields = FALSE) {
741                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->new_handle_set_entries');
742                 global $beanList, $beanFiles, $current_user, $app_list_strings;
743
744                 $ret_values = array();
745
746                 $class_name = $beanList[$module_name];
747                 require_once($beanFiles[$class_name]);
748                 $ids = array();
749                 $count = 1;
750                 $total = sizeof($name_value_lists);
751                 foreach($name_value_lists as $name_value_list){
752                         $seed = new $class_name();
753
754                         $seed->update_vcal = false;
755                         foreach($name_value_list as $value){
756                                 if($value['name'] == 'id'){
757                                         $seed->retrieve($value['value']);
758                                         break;
759                                 }
760                         }
761
762                         foreach($name_value_list as $value) {
763                                 $val = $value['value'];
764                                 if($seed->field_name_map[$value['name']]['type'] == 'enum'){
765                                         $vardef = $seed->field_name_map[$value['name']];
766                                         if(isset($app_list_strings[$vardef['options']]) && !isset($app_list_strings[$vardef['options']][$value]) ) {
767                                                 if ( in_array($val,$app_list_strings[$vardef['options']]) ){
768                                                         $val = array_search($val,$app_list_strings[$vardef['options']]);
769                                                 }
770                                         }
771                                 }
772                                 if($module_name == 'Users' && !empty($seed->id) && ($seed->id != $current_user->id) && $value['name'] == 'user_hash'){
773                                         continue;
774                                 }
775
776                                 $seed->$value['name'] = $val;
777                         }
778
779                         if($count == $total){
780                                 $seed->update_vcal = false;
781                         }
782                         $count++;
783
784                         //Add the account to a contact
785                         if($module_name == 'Contacts'){
786                                 $GLOBALS['log']->debug('Creating Contact Account');
787                                 $this->add_create_account($seed);
788                                 $duplicate_id = $this->check_for_duplicate_contacts($seed);
789                                 if($duplicate_id == null){
790                                         if($seed->ACLAccess('Save') && ($seed->deleted != 1 || $seed->ACLAccess('Delete'))){
791                                                 $seed->save();
792                                                 if($seed->deleted == 1){
793                                                         $seed->mark_deleted($seed->id);
794                                                 }
795                                                 $ids[] = $seed->id;
796                                         }
797                                 }
798                                 else{
799                                         //since we found a duplicate we should set the sync flag
800                                         if( $seed->ACLAccess('Save')){
801                                                 $seed = new $class_name();
802                                                 $seed->id = $duplicate_id;
803                                                 $seed->contacts_users_id = $current_user->id;
804                                                 $seed->save();
805                                                 $ids[] = $duplicate_id;//we have a conflict
806                                         }
807                                 }
808                         }
809                         else if($module_name == 'Meetings' || $module_name == 'Calls'){
810                                 //we are going to check if we have a meeting in the system
811                                 //with the same outlook_id. If we do find one then we will grab that
812                                 //id and save it
813                                 if( $seed->ACLAccess('Save') && ($seed->deleted != 1 || $seed->ACLAccess('Delete'))){
814                                         if(empty($seed->id) && !isset($seed->id)){
815                                                 if(!empty($seed->outlook_id) && isset($seed->outlook_id)){
816                                                         //at this point we have an object that does not have
817                                                         //the id set, but does have the outlook_id set
818                                                         //so we need to query the db to find if we already
819                                                         //have an object with this outlook_id, if we do
820                                                         //then we can set the id, otherwise this is a new object
821                                                         $order_by = "";
822                                                         $query = $seed->table_name.".outlook_id = '".$GLOBALS['db']->quote($seed->outlook_id)."'";
823                                                         $response = $seed->get_list($order_by, $query, 0,-1,-1,0);
824                                                         $list = $response['list'];
825                                                         if(count($list) > 0){
826                                                                 foreach($list as $value)
827                                                                 {
828                                                                         $seed->id = $value->id;
829                                                                         break;
830                                                                 }
831                                                         }//fi
832                                                 }//fi
833                                         }//fi
834                                     if (empty($seed->reminder_time)) {
835                         $seed->reminder_time = -1;
836                     }
837                     if($seed->reminder_time == -1){
838                         $defaultRemindrTime = $current_user->getPreference('reminder_time');
839                         if ($defaultRemindrTime != -1){
840                             $seed->reminder_checked = '1';
841                             $seed->reminder_time = $defaultRemindrTime;
842                         }
843                     }
844                                         $seed->save();
845                     if($seed->deleted == 1){
846                             $seed->mark_deleted($seed->id);
847                     }
848                                         $ids[] = $seed->id;
849                                 }//fi
850                         }
851                         else
852                         {
853                                 if( $seed->ACLAccess('Save') && ($seed->deleted != 1 || $seed->ACLAccess('Delete'))){
854                                         $seed->save();
855                                         $ids[] = $seed->id;
856                                 }
857                         }
858
859                         // if somebody is calling set_entries_detail() and wants fields returned...
860                         if ($select_fields !== FALSE) {
861                                 $ret_values[$count] = array();
862
863                                 foreach ($select_fields as $select_field) {
864                                         if (isset($seed->$select_field)) {
865                                                 $ret_values[$count][$select_field] = $this->get_name_value($select_field, $seed->$select_field);
866                                         }
867                                 }
868                         }
869                 }
870
871                 // handle returns for set_entries_detail() and set_entries()
872                 if ($select_fields !== FALSE) {
873                         $GLOBALS['log']->info('End: SoapHelperWebServices->new_handle_set_entries');
874                         return array(
875                                 'name_value_lists' => $ret_values,
876                         );
877                 }
878                 else {
879                         $GLOBALS['log']->info('End: SoapHelperWebServices->new_handle_set_entries');
880                         return array(
881                                 'ids' => $ids,
882                         );
883                 }
884         }
885
886         function get_return_value($value, $module){
887                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->get_return_value');
888                 global $module_name, $current_user;
889                 $module_name = $module;
890                 if($module == 'Users' && $value->id != $current_user->id){
891                         $value->user_hash = '';
892                 }
893                 $GLOBALS['log']->info('End: SoapHelperWebServices->new_handle_set_entries');
894                 return Array('id'=>$value->id,
895                                         'module_name'=> $module,
896                                         'name_value_list'=>$this->get_name_value_list($value)
897                                         );
898         }
899
900
901         function get_return_module_fields($value, $module,$fields, $translate=true){
902                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->get_return_module_fields');
903                 global $module_name;
904                 $module_name = $module;
905                 $result = $this->get_field_list($value,$fields,  $translate);
906                 $GLOBALS['log']->info('End: SoapHelperWebServices->get_return_module_fields');
907                 return Array('module_name'=>$module,
908                                         'module_fields'=> $result['module_fields'],
909                                         'link_fields'=> $result['link_fields'],
910                                         );
911         } // fn
912
913         function login_success($name_value_list = array()){
914                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->login_success');
915                 global $current_language, $sugar_config, $app_strings, $app_list_strings;
916                 $current_language = $sugar_config['default_language'];
917                 if (is_array($name_value_list) && !empty($name_value_list)) {
918                         foreach($name_value_list as $key => $value) {
919                                 if (isset($value['name']) && ($value['name'] == 'language')) {
920                                         $language = $value['value'];
921                                         $supportedLanguages = $sugar_config['languages'];
922                                         if (array_key_exists($language, $supportedLanguages)) {
923                                                 $current_language = $language;
924                                         } // if
925                                 } // if
926                                 if (isset($value['name']) && ($value['name'] == 'notifyonsave')) {
927                                         if ($value['value']) {
928                                                 $_SESSION['notifyonsave'] = true;
929                                         }
930                                 } // if
931                         } // foreach
932                 } else {
933                         if (isset($_SESSION['user_language'])) {
934                                 $current_language = $_SESSION['user_language'];
935                         } // if
936                 }
937                 $GLOBALS['log']->info("Users language is = " . $current_language);
938                 $app_strings = return_application_language($current_language);
939                 $app_list_strings = return_app_list_strings_language($current_language);
940                 $GLOBALS['log']->info('End: SoapHelperWebServices->login_success');
941         } // fn
942
943
944         function checkSaveOnNotify() {
945             $notifyonsave = false;
946             if (isset($_SESSION['notifyonsave']) && $_SESSION['notifyonsave'] == true) {
947                 $notifyonsave = true;
948             } // if
949                 return $notifyonsave;
950         }
951         /*
952          *      Given an account_name, either create the account or assign to a contact.
953          */
954         function add_create_account($seed) {
955                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->add_create_account');
956                 global $current_user;
957                 $account_name = $seed->account_name;
958                 $account_id = $seed->account_id;
959                 $assigned_user_id = $current_user->id;
960
961                 // check if it already exists
962             $focus = new Account();
963             if($focus->ACLAccess('Save')) {
964                         $class = get_class($seed);
965                         $temp = new $class();
966                         $temp->retrieve($seed->id);
967                         if ( empty($account_name) && empty($account_id)) {
968                                 return;
969                         } // if
970                         if (!isset($seed->accounts)){
971                             $seed->load_relationship('accounts');
972                         } // if
973
974                         if($seed->account_name == '' && isset($temp->account_id)){
975                                 $seed->accounts->delete($seed->id, $temp->account_id);
976                                 $GLOBALS['log']->info('End: SoapHelperWebServices->add_create_account');
977                                 return;
978                         }
979                     $arr = array();
980
981             if(!empty($account_id))  // bug # 44280
982             {
983                $query = "select id, deleted from {$focus->table_name} WHERE id='".$seed->db->quote($account_id)."'";
984             }
985             else
986             {
987                $query = "select id, deleted from {$focus->table_name} WHERE name='".$seed->db->quote($account_name)."'";
988             }
989             $result = $seed->db->query($query, true);
990
991                     $row = $seed->db->fetchByAssoc($result, false);
992
993                         // we found a row with that id
994                     if (isset($row['id']) && $row['id'] != -1)
995                     {
996                         // if it exists but was deleted, just remove it entirely
997                         if ( isset($row['deleted']) && $row['deleted'] == 1)
998                         {
999                             $query2 = "delete from {$focus->table_name} WHERE id='". $seed->db->quote($row['id'])."'";
1000                             $result2 = $seed->db->query($query2, true);
1001                                 }
1002                                 // else just use this id to link the contact to the account
1003                         else
1004                         {
1005                                 $focus->id = $row['id'];
1006                         }
1007                     }
1008
1009                         // if we didnt find the account, so create it
1010                     if (! isset($focus->id) || $focus->id == '')
1011                     {
1012                         $focus->name = $account_name;
1013
1014                                 if ( isset($assigned_user_id))
1015                                 {
1016                            $focus->assigned_user_id = $assigned_user_id;
1017                            $focus->modified_user_id = $assigned_user_id;
1018                                 }
1019                         $focus->save();
1020                     }
1021
1022                     if($seed->accounts != null && $temp->account_id != null && $temp->account_id != $focus->id){
1023                         $seed->accounts->delete($seed->id, $temp->account_id);
1024                     }
1025
1026                     if(isset($focus->id) && $focus->id != ''){
1027                                 $seed->account_id = $focus->id;
1028                         } // if
1029                         $GLOBALS['log']->info('End: SoapHelperWebServices->add_create_account');
1030
1031             } else {
1032                         $GLOBALS['log']->info('End: SoapHelperWebServices->add_create_account - Insufficient ACLAccess');
1033             } // else
1034         } // fn
1035
1036         function check_for_duplicate_contacts($seed){
1037                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->check_for_duplicate_contacts');
1038                 require_once('modules/Contacts/Contact.php');
1039
1040                 if(isset($seed->id)){
1041                         $GLOBALS['log']->info('End: SoapHelperWebServices->check_for_duplicate_contacts - no duplicte found');
1042                         return null;
1043                 }
1044
1045                 $query = '';
1046
1047                 $trimmed_email = trim($seed->email1);
1048         $trimmed_email2 = trim($seed->email2);
1049             $trimmed_last = trim($seed->last_name);
1050             $trimmed_first = trim($seed->first_name);
1051                 if(!empty($trimmed_email) || !empty($trimmed_email2)){
1052
1053                         //obtain a list of contacts which contain the same email address
1054                         $contacts = $seed->emailAddress->getBeansByEmailAddress($trimmed_email);
1055             $contacts2 = $seed->emailAddress->getBeansByEmailAddress($trimmed_email2);
1056             $contacts = array_merge($contacts, $contacts2);
1057                         if(count($contacts) == 0){
1058                                 $GLOBALS['log']->info('End: SoapHelperWebServices->check_for_duplicate_contacts - no duplicte found');
1059                                 return null;
1060                         }else{
1061                                 foreach($contacts as $contact){
1062                                         if(!empty($trimmed_last) && strcmp($trimmed_last, $contact->last_name) == 0){
1063                                                 if((!empty($trimmed_email) || !empty($trimmed_email2)) && (strcmp($trimmed_email, $contact->email1) == 0 || strcmp($trimmed_email, $contact->email2) == 0 || strcmp($trimmed_email2, $contact->email) == 0 || strcmp($trimmed_email2, $contact->email2) == 0)){
1064                                                         $contact->load_relationship('accounts');
1065                                                         if(empty($seed->account_name) || strcmp($seed->account_name, $contact->account_name) == 0){
1066                                 $GLOBALS['log']->info('End: SoapHelperWebServices->check_for_duplicate_contacts - duplicte found ' . $contact->id);
1067                                                                 return $contact->id;
1068                                                         }
1069                                                 }
1070                                         }
1071                                 }
1072                                 $GLOBALS['log']->info('End: SoapHelperWebServices->check_for_duplicate_contacts - no duplicte found');
1073                                 return null;
1074                         }
1075                 }else
1076                         $GLOBALS['log']->info('End: SoapHelperWebServices->check_for_duplicate_contacts - no duplicte found');
1077                         return null;
1078         }
1079
1080
1081         /**
1082          * decrypt a string use the TripleDES algorithm. This meant to be
1083          * modified if the end user chooses a different algorithm
1084          *
1085          * @param $string - the string to decrypt
1086          *
1087          * @return a decrypted string if we can decrypt, the original string otherwise
1088          */
1089         function decrypt_string($string){
1090                 $GLOBALS['log']->info('Begin: SoapHelperWebServices->decrypt_string');
1091                 if(function_exists('mcrypt_cbc')){
1092                         require_once('modules/Administration/Administration.php');
1093                         $focus = new Administration();
1094                         $focus->retrieveSettings();
1095                         $key = '';
1096                         if(!empty($focus->settings['ldap_enc_key'])){
1097                                 $key = $focus->settings['ldap_enc_key'];
1098                         }
1099                         if(empty($key)) {
1100                                 $GLOBALS['log']->info('End: SoapHelperWebServices->decrypt_string - empty key');
1101                                 return $string;
1102                         } // if
1103                         $buffer = $string;
1104                         $key = substr(md5($key),0,24);
1105                     $iv = "password";
1106                         $GLOBALS['log']->info('End: SoapHelperWebServices->decrypt_string');
1107                     return mcrypt_cbc(MCRYPT_3DES, $key, pack("H*", $buffer), MCRYPT_DECRYPT, $iv);
1108                 }else{
1109                         $GLOBALS['log']->info('End: SoapHelperWebServices->decrypt_string');
1110                         return $string;
1111                 }
1112         } // fn
1113
1114         function isLogLevelDebug() {
1115                 if (isset($GLOBALS['sugar_config']['logger'])) {
1116                         if (isset($GLOBALS['sugar_config']['logger']['level'])) {
1117                                 return ($GLOBALS['sugar_config']['logger']['level'] == 'debug');
1118                         } // if
1119                 }
1120                 return false;
1121         } // fn
1122
1123
1124
1125
1126 } // clazz
1127
1128 ?>