Elep

<?php
/*
 * Your installation or use of this SugarCRM file is subject to the applicable
 * terms available at
 * http://support.sugarcrm.com/Resources/Master_Subscription_Agreements/.
 * If you do not agree to all of the applicable terms or do not have the
 * authority to bind the entity as an authorized representative, then do not
 * install or use this SugarCRM file.
 *
 * Copyright (C) SugarCRM Inc. All rights reserved.
 */

/**
 * Retrieve field data for a provided SugarBean.
 *
 * @param SugarBean $value -- The bean to retrieve the field information for.
 * @return Array -- 'field'=>   'name' -- the name of the field
 *                              'type' -- the data type of the field
 *                              'label' -- the translation key for the label of the field
 *                              'required' -- Is the field required?
 *                              'options' -- Possible values for a drop down field
 */
function get_field_list($value, $translate = true)
{
    $list = [];

if (!empty($value->field_defs)) {
        foreach ($value->field_defs as $var) {
            if (isset($var['source']) && ($var['source'] != 'db' && $var['source'] != 'custom_fields') && $var['name'] != 'email1' && $var['name'] != 'email2' && (!isset($var['type']) || $var['type'] != 'relate')
                && !(isset($var['type']) && $var['type'] == 'id' && isset($var['link']))) {
                continue;
            }
            $required = 0;
            $options_dom = [];
            $options_ret = [];
            // Apparently the only purpose of this check is to make sure we only return fields
            //   when we've read a record.  Otherwise this function is identical to get_module_field_list
            if (!empty($var['required'])) {
                $required = 1;
            }
            if (isset($var['options'])) {
                $options_dom = translate($var['options'], $value->module_dir);
                if (!is_array($options_dom)) {
                    $options_dom = [];
                }
                foreach ($options_dom as $key => $oneOption) {
                    $options_ret[] = get_name_value($key, $oneOption);
                }
            }

if (!empty($var['dbType']) && $var['type'] == 'bool') {
                $options_ret[] = get_name_value('type', $var['dbType']);
            }

$entry = [];
            $entry['name'] = $var['name'];
            $entry['type'] = $var['type'];
            if ($translate) {
                $entry['label'] = isset($var['vname']) ? translate($var['vname'], $value->module_dir) : $var['name'];
            } else {
                $entry['label'] = $var['vname'] ?? $var['name'];
            }
            $entry['required'] = $required;
            $entry['options'] = $options_ret;
            if (isset($var['default'])) {
                $entry['default_value'] = $var['default'];
            }

$list[$var['name']] = $entry;
        } //foreach
    } //if

if (($value->module_dir ?? '') === 'Bugs') {
        $seedRelease = BeanFactory::newBean('Releases');
        $options = $seedRelease->get_releases(true, 'Active');
        $options_ret = [];
        foreach ($options as $name => $val) {
            $options_ret[] = ['name' => $name, 'value' => $val];
        }
        if (isset($list['fixed_in_release'])) {
            $list['fixed_in_release']['type'] = 'enum';
            $list['fixed_in_release']['options'] = $options_ret;
        }
        if (isset($list['release'])) {
            $list['release']['type'] = 'enum';
            $list['release']['options'] = $options_ret;
        }
        if (isset($list['release_name'])) {
            $list['release_name']['type'] = 'enum';
            $list['release_name']['options'] = $options_ret;
        }
    }
    if (($value->module_dir ?? '') === 'Emails') {
        $fields = ['from_addr_name', 'reply_to_addr', 'to_addrs_names', 'cc_addrs_names', 'bcc_addrs_names'];
        foreach ($fields as $field) {
            $var = $value->field_defs[$field];

$required = 0;
            $entry = [];
            $entry['name'] = $var['name'];
            $entry['type'] = $var['type'];
            if ($translate) {
                $entry['label'] = isset($var['vname']) ? translate($var['vname'], $value->module_dir) : $var['name'];
            } else {
                $entry['label'] = $var['vname'] ?? $var['name'];
            }
            $entry['required'] = $required;
            $entry['options'] = [];
            if (isset($var['default'])) {
                $entry['default_value'] = $var['default'];
            }

$list[$var['name']] = $entry;
        }
    }

if (isset($value->assigned_user_name) && isset($list['assigned_user_id'])) {
        $list['assigned_user_name'] = $list['assigned_user_id'];
        $list['assigned_user_name']['name'] = 'assigned_user_name';
    }
    if (isset($value->assigned_name) && isset($list['team_id'])) {
        $list['team_name'] = $list['team_id'];
        $list['team_name']['name'] = 'team_name';
    }
    if (isset($list['modified_user_id'])) {
        $list['modified_by_name'] = $list['modified_user_id'];
        $list['modified_by_name']['name'] = 'modified_by_name';
    }
    if (isset($list['created_by'])) {
        $list['created_by_name'] = $list['created_by'];
        $list['created_by_name']['name'] = 'created_by_name';
    }
    return $list;
}

function new_get_field_list($value, $translate = true)
{
    $module_fields = [];
    $link_fields = [];

if (!empty($value->field_defs)) {
        foreach ($value->field_defs as $var) {
            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;
            }
            if ($var['source'] == 'non_db' && (isset($var['type']) && $var['type'] != 'link')) {
                continue;
            }
            $required = 0;
            $options_dom = [];
            $options_ret = [];
            // Apparently the only purpose of this check is to make sure we only return fields
            //   when we've read a record.  Otherwise this function is identical to get_module_field_list
            if (!empty($var['required'])) {
                $required = 1;
            }
            if (isset($var['options'])) {
                $options_dom = translate($var['options'], $value->module_dir);
                if (!is_array($options_dom)) {
                    $options_dom = [];
                }
                foreach ($options_dom as $key => $oneOption) {
                    $options_ret[] = get_name_value($key, $oneOption);
                }
            }

if (!empty($var['dbType']) && $var['type'] == 'bool') {
                $options_ret[] = get_name_value('type', $var['dbType']);
            }

$entry = [];
            $entry['name'] = $var['name'];
            $entry['type'] = $var['type'];
            if ($var['type'] == 'link') {
                $entry['relationship'] = ($var['relationship'] ?? '');
                $entry['module'] = ($var['module'] ?? '');
                $entry['bean_name'] = ($var['bean_name'] ?? '');
                $link_fields[$var['name']] = $entry;
            } else {
                if ($translate) {
                    $entry['label'] = isset($var['vname']) ? translate($var['vname'], $value->module_dir) : $var['name'];
                } else {
                    $entry['label'] = $var['vname'] ?? $var['name'];
                }
                $entry['required'] = $required;
                $entry['options'] = $options_ret;
                if (isset($var['default'])) {
                    $entry['default_value'] = $var['default'];
                }
                $module_fields[$var['name']] = $entry;
            } // else
        } //foreach
    } //if

if ($value->module_dir == 'Bugs') {
        $seedRelease = BeanFactory::newBean('Releases');
        $options = $seedRelease->get_releases(true, 'Active');
        $options_ret = [];
        foreach ($options as $name => $value) {
            $options_ret[] = ['name' => $name, 'value' => $value];
        }
        if (isset($module_fields['fixed_in_release'])) {
            $module_fields['fixed_in_release']['type'] = 'enum';
            $module_fields['fixed_in_release']['options'] = $options_ret;
        }
        if (isset($module_fields['release'])) {
            $module_fields['release']['type'] = 'enum';
            $module_fields['release']['options'] = $options_ret;
        }
        if (isset($module_fields['release_name'])) {
            $module_fields['release_name']['type'] = 'enum';
            $module_fields['release_name']['options'] = $options_ret;
        }
    }

if (isset($value->assigned_user_name) && isset($module_fields['assigned_user_id'])) {
        $module_fields['assigned_user_name'] = $module_fields['assigned_user_id'];
        $module_fields['assigned_user_name']['name'] = 'assigned_user_name';
    }
    if (isset($value->assigned_name) && isset($module_fields['team_id'])) {
        $module_fields['team_name'] = $module_fields['team_id'];
        $module_fields['team_name']['name'] = 'team_name';
    }
    if (isset($module_fields['modified_user_id'])) {
        $module_fields['modified_by_name'] = $module_fields['modified_user_id'];
        $module_fields['modified_by_name']['name'] = 'modified_by_name';
    }
    if (isset($module_fields['created_by'])) {
        $module_fields['created_by_name'] = $module_fields['created_by'];
        $module_fields['created_by_name']['name'] = 'created_by_name';
    }

return ['module_fields' => $module_fields, 'link_fields' => $link_fields];
} // fn

function setFaultObject($errorObject)
{
    new SoapFault($errorObject->getFaultCode(), $errorObject->getName(), '', $errorObject->getDescription());
}

function checkSessionAndModuleAccess($session, $login_error_key, $module_name, $access_level, $module_access_level_error_key, $errorObject)
{
    if (!validate_authenticated($session)) {
        $errorObject->set_error('invalid_login');
        setFaultObject($errorObject);
        return false;
    } // if

global $beanList, $beanFiles;
    if (!empty($module_name)) {
        if (empty($beanList[$module_name])) {
            $errorObject->set_error('no_module');
            setFaultObject($errorObject);
            return false;
        } // if
        global $current_user;
        if (!check_modules_access($current_user, $module_name, $access_level)) {
            $errorObject->set_error('no_access');
            setFaultObject($errorObject);
            return false;
        }
    } // if
    return true;
} // fn

function checkACLAccess($bean, $viewType, $errorObject, $error_key)
{
    if (!$bean->ACLAccess($viewType)) {
        $errorObject->set_error($error_key);
        setFaultObject($errorObject);
        return false;
    } // if
    return true;
} // fn

function get_name_value($field, $value)
{
    return ['name' => $field, 'value' => $value];
}

function get_user_module_list($user)
{
    global $moduleList, $modInvisList, $beanList, $beanFiles;
    $modules = array_flip(SugarACL::filterModuleList($moduleList, 'access', true)); // module names end up as keys

foreach ($modInvisList as $invis) {
        $modules[$invis] = 'read_only';
    }

foreach ($modules as $key => $val) {
        if (!SugarACL::checkAccess($key, 'edit', ['owner_override' => true])) {
            // not accessible for write
            $modules[$key] = 'read_only';
        } else {
            // access ok
            if ($modules[$key] != 'read_only') {
                $modules[$key] = '';
            }
        }
    }

//Remove all modules that don't have a beanFiles entry associated with it
    foreach ($modules as $module_name => $module) {
        if (isset($beanList[$module_name])) {
            $class_name = $beanList[$module_name];
            if (empty($beanFiles[$class_name])) {
                unset($modules[$module_name]);
            }
        } else {
            unset($modules[$module_name]);
        }
    }

return $modules;
}

if (isset($value->{$var['name']})) {
                $val = $value->{$var['name']};
                $type = $var['type'];

if (strcmp($type, 'date') == 0) {
                    $val = substr($val, 0, 10);
                } elseif (strcmp($type, 'enum') == 0 && !empty($var['options']) && $returnDomValue) {
                    $val = $app_list_strings[$var['options']][$val];
                }

$list[$var['name']] = get_name_value($var['name'], $val);
            }
        }
    }
    return $list;
}

function get_name_value_list_for_fields($value, $fields)
{
    global $app_list_strings;
    global $invalid_contact_fields;

$list = [];
    if (!empty($value->field_defs)) {
        if (isset($value->assigned_user_name) && safeInArray('assigned_user_name', $fields)) {
            $list['assigned_user_name'] = get_name_value('assigned_user_name', $value->assigned_user_name);
        }
        if (isset($value->assigned_name) && safeInArray('assigned_name', $fields)) {
            $list['team_name'] = get_name_value('team_name', $value->assigned_name);
        }
        if (isset($value->modified_by_name) && safeInArray('modified_by_name', $fields)) {
            $list['modified_by_name'] = get_name_value('modified_by_name', $value->modified_by_name);
        }
        if (isset($value->created_by_name) && safeInArray('created_by_name', $fields)) {
            $list['created_by_name'] = get_name_value('created_by_name', $value->created_by_name);
        }

$filterFields = filter_fields($value, $fields);
        foreach ($filterFields as $field) {
            $var = $value->field_defs[$field];
            if (isset($value->{$var['name']})) {
                $val = $value->{$var['name']};
                $type = $var['type'];

if (strcmp($type, 'date') == 0) {
                    $val = substr($val, 0, 10);
                } elseif (strcmp($type, 'enum') == 0 && !empty($var['options'])) {
                    $val = $app_list_strings[$var['options']][$val];
                }

$list[$var['name']] = get_name_value($var['name'], $val);
            } // if
        } // foreach
    } // if
    return $list;
} // fn

function array_get_name_value_list($array)
{
    $list = [];
    foreach ($array as $name => $value) {
        $list[$name] = get_name_value($name, $value);
    }
    return $list;
}

function array_get_return_value($array, $module)
{

return ['id' => $array['id'],
        'module_name' => $module,
        'name_value_list' => array_get_name_value_list($array),
    ];
}

function get_return_value_for_fields($value, $module, $fields)
{
    global $module_name, $current_user;
    $module_name = $module;
    if ($module == 'Users' && $value->id != $current_user->id) {
        $value->user_hash = '';
    }
    $value = clean_sensitive_data($value->field_defs, $value);
    return ['id' => $value->id,
        'module_name' => $module,
        'name_value_list' => get_name_value_list_for_fields($value, $fields),
    ];
}

function getRelationshipResults($bean, $link_field_name, $link_module_fields)
{
    $bean->load_relationship($link_field_name);
    if (isset($bean->$link_field_name)) {
        // get the query object for this link field
        $query_array = $bean->$link_field_name->getQuery(true, [], 0, '', true);
        $params = [];
        $params['joined_tables'] = $query_array['join_tables'];

// get the related module name and instantiate a bean for that.
        $submodulename = $bean->$link_field_name->getRelatedModuleName();

$submodule = BeanFactory::newBean($submodulename);
        $filterFields = filter_fields($submodule, $link_module_fields);
        $relFields = $bean->$link_field_name->getRelatedFields();
        $roleSelect = '';

if (!empty($relFields)) {
            foreach ($link_module_fields as $field) {
                if (!empty($relFields[$field])) {
                    $roleSelect .= ', ' . $query_array['join_tables'][0] . '.' . $field;
                }
            }
        }
        // create a query
        $subquery = $submodule->create_new_list_query('', '', $filterFields, $params, 0, '', true, $bean);
        $query = $subquery['select'] . $roleSelect . $subquery['from'] . $query_array['join'] . $subquery['where'];

$result = $submodule->db->query($query, true);
        $list = [];
        while ($row = $submodule->db->fetchByAssoc($result)) {
            $list[] = $row;
        }
        return ['rows' => $list, 'fields_set_on_rows' => $filterFields];
    } else {
        return false;
    } // else
} // fn

function get_return_value_for_link_fields($bean, $module, $link_name_to_value_fields_array)
{
    $value = null;
    global $module_name, $current_user;
    $module_name = $module;
    if ($module == 'Users' && $bean->id != $current_user->id) {
        $bean->user_hash = '';
    }
    $bean = clean_sensitive_data($value->field_defs, $bean);

if (empty($link_name_to_value_fields_array) || !is_array($link_name_to_value_fields_array)) {
        return [];
    }

$link_output = [];
    foreach ($link_name_to_value_fields_array as $link_name_value_fields) {
        if (!is_array($link_name_value_fields) || !isset($link_name_value_fields['name']) || !isset($link_name_value_fields['value'])) {
            continue;
        }
        $link_field_name = $link_name_value_fields['name'];
        $link_module_fields = $link_name_value_fields['value'];
        if (is_array($link_module_fields) && !empty($link_module_fields)) {
            $result = getRelationshipResults($bean, $link_field_name, $link_module_fields);
            if (!$result) {
                $link_output[] = ['name' => $link_field_name, 'records' => []];
                continue;
            }
            $list = $result['rows'];
            $filterFields = $result['fields_set_on_rows'];
            if ($list) {
                $rowArray = [];
                foreach ($list as $row) {
                    $nameValueArray = [];
                    foreach ($filterFields as $field) {
                        $nameValue = [];
                        if (isset($row[$field])) {
                            $nameValue['name'] = $field;
                            $nameValue['value'] = $row[$field];
                            $nameValueArray[] = $nameValue;
                        } // if
                    } // foreach
                    $rowArray[] = $nameValueArray;
                } // foreach
                $link_output[] = ['name' => $link_field_name, 'records' => $rowArray];
            } // if
        } // if
    } // foreach
    return $link_output;
} // fn

/**
 *
 * @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).
 * @param String $module_id -- The ID of the bean in the specified module
 * @param String $link_field_name - The relationship name for which to create realtionships.
 * @param Array $related_ids -- The array of ids for which we want to create relationships
 * @return true on success, false on failure
 */
function new_handle_set_relationship($module_name, $module_id, $link_field_name, $related_ids)
{
    $mod = BeanFactory::getBean($module_name, $module_id);
    if (empty($mod) || !$mod->ACLAccess('DetailView')) {
        return false;
    }

if ($mod->load_relationship($link_field_name)) {
        $mod->$link_field_name->add($related_ids);
        return true;
    } else {
        return false;
    }
}

function new_handle_set_entries($module_name, $name_value_lists, $select_fields = false)
{
    global $app_list_strings;
    global $current_user;

$ret_values = [];

$ids = [];
    $count = 1;
    $total = sizeof($name_value_lists);
    foreach ($name_value_lists as $name_value_list) {
        $seed = BeanFactory::newBean($module_name);

$seed->update_vcal = false;
        foreach ($name_value_list as $value) {
            if ($value['name'] == 'id') {
                $seed->retrieve($value['value']);
                break;
            }
        }

foreach ($name_value_list as $value) {
            $val = $value['value'];
            if ($seed->field_defs[$value['name']]['type'] == 'enum') {
                $vardef = $seed->field_defs[$value['name']];
                if (isset($app_list_strings[$vardef['options']]) && !isset($app_list_strings[$vardef['options']][$value])) {
                    if (safeInArray($val, $app_list_strings[$vardef['options']])) {
                        $val = array_search($val, $app_list_strings[$vardef['options']]);
                    }
                }
            }
            $seed->{$value['name']} = $val;
        }

if ($count == $total) {
            $seed->update_vcal = false;
        }
        $count++;

//Add the account to a contact
        if ($module_name == 'Contacts') {
            $GLOBALS['log']->debug('Creating Contact Account');
            add_create_account($seed);
            $duplicate_id = check_for_duplicate_contacts($seed);
            if ($duplicate_id === null) {
                if ($seed->ACLAccess('Save') && ($seed->deleted != 1 || $seed->ACLAccess('Delete'))) {
                    $seed->save();
                    if ($seed->deleted == 1) {
                        $seed->mark_deleted($seed->id);
                    }
                    $ids[] = $seed->id;
                }
            } else {
                //since we found a duplicate we should set the sync flag
                if ($seed->ACLAccess('Save')) {
                    $seed = BeanFactory::newBean($module_name);
                    $seed->id = $duplicate_id;
                    $seed->contacts_users_id = $current_user->id;
                    $seed->save();
                    $ids[] = $duplicate_id;//we have a conflict
                }
            }
        } elseif ($module_name == 'Meetings' || $module_name == 'Calls') {
            //we are going to check if we have a meeting in the system
            //with the same outlook_id. If we do find one then we will grab that
            //id and save it
            if ($seed->ACLAccess('Save') && ($seed->deleted != 1 || $seed->ACLAccess('Delete'))) {
                if (empty($seed->id) && !isset($seed->id)) {
                    if (!empty($seed->outlook_id) && isset($seed->outlook_id)) {
                        //at this point we have an object that does not have
                        //the id set, but does have the outlook_id set
                        //so we need to query the db to find if we already
                        //have an object with this outlook_id, if we do
                        //then we can set the id, otherwise this is a new object
                        $order_by = '';
                        $query = $seed->table_name . ".outlook_id = '" . $GLOBALS['db']->quote($seed->outlook_id) . "'";
                        $response = $seed->get_list($order_by, $query, 0, -1, -1, 0);
                        $list = $response['list'];
                        if (safeCount($list) > 0) {
                            foreach ($list as $value) {
                                $seed->id = $value->id;
                                break;
                            }
                        }//fi
                    }//fi
                }//fi
                $seed->save();
                if ($seed->deleted == 1) {
                    $seed->mark_deleted($seed->id);
                }
                $ids[] = $seed->id;
            }//fi
        } else {
            if ($seed->ACLAccess('Save') && ($seed->deleted != 1 || $seed->ACLAccess('Delete'))) {
                $seed->save();
                $ids[] = $seed->id;
            }
        }

// if somebody is calling set_entries_detail() and wants fields returned...
        if ($select_fields !== false) {
            $ret_values[$count] = [];

foreach ($select_fields as $select_field) {
                if (isset($seed->$select_field)) {
                    $ret_values[$count][] = get_name_value($select_field, $seed->$select_field);
                }
            }
        }
    }

// handle returns for set_entries_detail() and set_entries()
    if ($select_fields !== false) {
        return [
            'name_value_lists' => $ret_values,
        ];
    } else {
        return [
            'ids' => $ids,
        ];
    }
}

function get_return_value($value, $module, $returnDomValue = false)
{
    global $module_name, $current_user;
    $module_name = $module;
    if ($module == 'Users' && $value->id != $current_user->id) {
        $value->user_hash = '';
    }
    $value = clean_sensitive_data($value->field_defs, $value);
    return ['id' => $value->id,
        'module_name' => $module,
        'name_value_list' => get_name_value_list($value, $returnDomValue),
    ];
}

/**
 * Return the data from a report
 *
 * @param SavedReport $seed
 * @return array - output_list - the rows of the reports, field_list - the fields in the report.
 */
function get_report_value($seed)
{
    $result = [];
    $field_list = [];
    $output_list = [];
    $report = new Report(html_entity_decode($seed->content, ENT_COMPAT));
    $report->enable_paging = false;
    $next_row_fn = 'get_next_row';
    $report->plain_text_output = true;
    if ($report->report_type == 'summary') {
        $report->run_summary_query();
        $header = $report->get_summary_header_row();
        $next_row_fn = 'get_summary_next_row';
    } else {
        $report->run_query();
        $header = $report->get_header_row();
    }

foreach ($header as $key => $value) {
        $field_list[$key] = ['name' => $value,
            'type' => 'header',
            'label' => $value,
            'required' => '0',
            'options' => [],
        ];
    }

$index = 0;
    $column_types = 'display_columns';
    if ($report->report_type == 'summary') {
        $column_types = 'summary_columns';
    }
    while (($row = $report->$next_row_fn('result', $column_types)) != 0) {
        $row_list = ['id' => $index,
            'module_name' => 'Reports',
            'name_value_list' => [],
        ];

foreach ($row['cells'] as $key => $value) {
            $row_list['name_value_list'][$key] = ['name' => $key,
                'value' => $value,
            ];
        }
        $output_list[$index] = $row_list;
        $index++;
    }
    $result['output_list'] = $output_list;
    $result['field_list'] = $field_list;
    return $result;
}

function get_encoded_Value($value)
{

// XML 1.0 doesn't allow those...
    $value = preg_replace('/([\\x00-\\x08\\x0B\\x0C\\x0E-\\x1F])/', '', $value);
    $value = htmlspecialchars($value, ENT_NOQUOTES, 'utf-8');
    return "<value>$value</value>";
}

function get_name_value_xml($val, $module_name)
{
    $xml = '<item>';
    $xml .= '<id>' . $val['id'] . '</id>';
    $xml .= '<module>' . $module_name . '</module>';
    $xml .= '<name_value_list>';
    foreach ($val['name_value_list'] as $name => $nv) {
        $xml .= '<name_value>';
        $xml .= '<name>' . htmlspecialchars($nv['name'], ENT_COMPAT) . '</name>';
        $xml .= get_encoded_Value($nv['value']);
        $xml .= '</name_value>';
    }
    $xml .= '</name_value_list>';
    $xml .= '</item>';
    return $xml;
}

function new_get_return_module_fields($value, $module, $translate = true)
{
    global $module_name;
    $module_name = $module;
    $result = new_get_field_list($value, $translate);
    return ['module_name' => $module,
        'module_fields' => $result['module_fields'],
        'link_fields' => $result['link_fields'],
    ];
}

function get_return_module_fields($value, $module, $error, $translate = true)
{
    global $module_name;
    $module_name = $module;
    return ['module_name' => $module,
        'module_fields' => get_field_list($value, $translate),
        'error' => $error,
    ];
}

function get_return_error_value($error_num, $error_name, $error_description)
{
    return ['number' => $error_num,
        'name' => $error_name,
        'description' => $error_description,
    ];
}

function filter_field_list(&$field_list, $select_fields, $module_name)
{
    return filter_return_list($field_list, $select_fields, $module_name);
}

/**
 * Filter the results of a list query.  Limit the fields returned.
 *
 * @param Array $output_list -- The array of list data
 * @param Array $select_fields -- The list of fields that should be returned.  If this array is specfied, only the fields in the array will be returned.
 * @param String $module_name -- The name of the module this being worked on
 * @return The filtered array of list data.
 */
function filter_return_list(&$output_list, $select_fields, $module_name)
{

for ($sug = 0; $sug < sizeof($output_list); $sug++) {
        if ($module_name == 'Contacts') {
            global $invalid_contact_fields;
            if (is_array($invalid_contact_fields)) {
                foreach ($invalid_contact_fields as $name => $val) {
                    unset($output_list[$sug]['field_list'][$name]);
                    unset($output_list[$sug]['name_value_list'][$name]);
                }
            }
        }

if (!empty($output_list[$sug]['name_value_list'])
            && is_array($output_list[$sug]['name_value_list'])
            && !empty($select_fields) && is_array($select_fields)
        ) {
            foreach ($output_list[$sug]['name_value_list'] as $name => $value) {
                if (!safeInArray($value['name'], $select_fields)) {
                    unset($output_list[$sug]['name_value_list'][$name]);
                    unset($output_list[$sug]['field_list'][$name]);
                }
            }
            // MAR-2033 - The Soap-based Outlook Plugin was written to assume that the select_field order
            // would be preserved on output. The following code ensures that order is preserved.
            if ($module_name === 'Contacts' || $module_name === 'Users') {
                $entryList = [];
                foreach ($select_fields as $fieldName) {
                    $entryList[$fieldName] = $output_list[$sug]['name_value_list'][$fieldName] ?? '';
                }
                $output_list[$sug]['name_value_list'] = $entryList;
            }
        }
    }
    return $output_list;
}

function login_success()
{
    global $current_language, $sugar_config, $app_strings, $app_list_strings;
    $current_language = $sugar_config['default_language'];
    $app_strings = return_application_language($current_language);
    $app_list_strings = return_app_list_strings_language($current_language);
}

/*
 *	Given an account_name, either create the account or assign to a contact.
 */
function add_create_account($seed)
{
    global $current_user;
    $account_name = $seed->account_name;
    $account_id = $seed->account_id;
    $assigned_user_id = $current_user->id;

// check if it already exists
    $focus = BeanFactory::newBean('Accounts');
    if ($focus->ACLAccess('Save')) {
        $temp = BeanFactory::getBean($seed->module_dir, $seed->id);
        if ((!isset($account_name) || $account_name == '')) {
            return;
        }
        if (!isset($seed->accounts)) {
            $seed->load_relationship('accounts');
        }

if ($seed->account_name == '' && isset($temp->account_id)) {
            $seed->accounts->delete($seed->id, $temp->account_id);
            return;
        }

$arr = [];

$query = "select {$focus->table_name}.id, {$focus->table_name}.deleted from {$focus->table_name} ";
        $focus->add_team_security_where_clause($query);
        $query .= " WHERE name='" . $seed->db->quote($account_name) . "'";
        $query .= ' ORDER BY deleted ASC';
        $result = $seed->db->query($query, true);

$row = $seed->db->fetchByAssoc($result, false);

// we found a row with that id
        if (!empty($row['id'])) {
            // if it exists but was deleted, just remove it entirely
            if (!empty($row['deleted'])) {
                $query2 = "delete from {$focus->table_name} WHERE id='" . $seed->db->quote($row['id']) . "'";
                $result2 = $seed->db->query($query2, true);
            } // else just use this id to link the contact to the account
            else {
                $focus->id = $row['id'];
            }
        }

// if we didnt find the account, so create it
        if (empty($focus->id)) {
            $focus->name = $account_name;

if (isset($assigned_user_id)) {
                $focus->assigned_user_id = $assigned_user_id;
                $focus->modified_user_id = $assigned_user_id;
            }
            $focus->save();
        }

if ($seed->accounts != null && $temp->account_id != null && $temp->account_id != $focus->id) {
            $seed->accounts->delete($seed->id, $temp->account_id);
        }

if (isset($focus->id) && $focus->id != '') {
            $seed->account_id = $focus->id;
        }
    }
}

/**
 * @param SugarBean $seed
 * @return mixed|null
 */
function check_for_duplicate_contacts($seed)
{

if (isset($seed->id)) {
        return null;
    }

$trimmed_email = trim($seed->email1);
    $trimmed_email2 = trim($seed->email2);
    $trimmed_last = trim($seed->last_name);
    $trimmed_first = trim($seed->first_name);
    if (!empty($trimmed_email) || !empty($trimmed_email2)) {
        //obtain a list of contacts which contain the same email address
        $contacts = $seed->emailAddress->getBeansByEmailAddress($trimmed_email);
        $contacts2 = $seed->emailAddress->getBeansByEmailAddress($trimmed_email2);
        $contacts = array_merge($contacts, $contacts2);
        if (safeCount($contacts) == 0) {
            return null;
        } else {
            foreach ($contacts as $contact) {
                if (!empty($trimmed_last) && strcmp($trimmed_last, $contact->last_name) == 0) {
                    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)) {
                        //bug: 39234 - check if the account names are the same
                        //if the incoming contact's account_name is empty OR it is not empty and is the same
                        //as an existing contact's account name, then find the match.
                        $contact->load_relationship('accounts');
                        if (empty($seed->account_name) || strcmp($seed->account_name, $contact->account_name) == 0) {
                            $GLOBALS['log']->info('End: SoapHelperWebServices->check_for_duplicate_contacts - duplicte found ' . $contact->id);
                            return $contact->id;
                        }
                    }
                }
            }
            return null;
        }
    } else {
        //This section of code is executed if no emails are supplied in the $seed instance

//This query is looking for the id of Contact records that do not have a primary email address based on the matching
        //first and last name and the record being not deleted.  If any such records are found we will take the first one and assume
        //that it is the duplicate record
        $query = <<<SQL
SELECT c.id as id FROM contacts c
LEFT OUTER JOIN email_addr_bean_rel eabr ON eabr.bean_id = c.id
WHERE c.first_name = ? AND c.last_name = ? AND c.deleted = 0 AND eabr.id IS NULL
SQL;

$id = $seed->db->getConnection()->executeQuery($query, [$trimmed_first, $trimmed_last])->fetchOne();
        // fetchOne returns FALSE for empty result but NULL is expected
        return $id ?: null;
    }
}

/*
 * Given a client version and a server version, determine if the right hand side(server version) is greater
 *
 * @param left           the client sugar version
 * @param right          the server version
 *
 * return               true if the server version is greater or they are equal
 *                      false if the client version is greater
 */
function is_server_version_greater($left, $right)
{
    if (safeCount($left) == 0 && safeCount($right) == 0) {
        return false;
    } elseif (safeCount($left) == 0 || safeCount($right) == 0) {
        return true;
    } elseif ($left[0] == $right[0]) {
        array_shift($left);
        array_shift($right);
        return is_server_version_greater($left, $right);
    } elseif ($left[0] < $right[0]) {
        return true;
    } else {
        return false;
    }
}

function getFile($zip_file, $file_in_zip)
{
    $base_upgrade_dir = sugar_cached('/upgrades');
    $base_tmp_upgrade_dir = "$base_upgrade_dir/temp";
    $my_zip_dir = mk_temp_dir($base_tmp_upgrade_dir);
    unzip_file($zip_file, $file_in_zip, $my_zip_dir);
    return ("$my_zip_dir/$file_in_zip");
}

function getManifest($zip_file)
{
    ini_set('max_execution_time', '3600');
    return (getFile($zip_file, 'manifest.php'));
}

if (!function_exists('get_encoded')) {
    /*HELPER FUNCTIONS*/
    function get_encoded($object)
    {
        return base64_encode(serialize($object));
    }

/**
     * @deprecated Will be removed in the next release
     * @param $object
     * @return mixed
     */
    function get_decoded($object)
    {
        return unserialize(base64_decode($object), ['allowed_classes' => false]);
    }

/**
     * decrypt a string use the TripleDES algorithm. This meant to be
     * modified if the end user chooses a different algorithm
     *
     * @param $string - the string to decrypt
     *
     * @return string, a decrypted string if we can decrypt, the original string otherwise
     */
    function decrypt_string($string)
    {
        $focus = Administration::getSettings();
        if (empty($focus->settings['ldap_enc_key'])) {
            return $string;
        }
        $key = substr(md5($focus->settings['ldap_enc_key']), 0, 24);
        $iv = 'password';
        return SoapHelperWebServices::decrypt_tripledes($string, $key, $iv);
    }
}

function canViewPath($path, $base)
{
    $path = realpath($path);
    $base = realpath($base);
    return 0 !== strncmp($path, $base, strlen($base));
}

/**
 * apply_values
 *
 * This function applies the given values to the bean object.  If it is a first time sync
 * then empty values will not be copied over.
 *
 * @param Mixed $seed Object representing SugarBean instance
 * @param Array $dataValues Array of fields/values to set on the SugarBean instance
 * @param boolean $firstSync Boolean indicating whether or not this is a first time sync
 */
function apply_values($seed, $dataValues, $firstSync)
{
    if (!$seed instanceof SugarBean || !is_array($dataValues)) {
        return;
    }

foreach ($dataValues as $field => $value) {
        if ($firstSync) {
            //If this is a first sync AND the value is not empty then we set it
            if (!empty($value)) {
                $seed->$field = $value;
            }
        } else {
            $seed->$field = $value;
        }
    }
}

/*END HELPER*/