function add_library_hf($options)
{
global $u;
global $library_messages;
global $APP;
if (!isset($options['id_user'])) {
echo "library add id_user not found!";
exit;
}
if (!isset($options['hf_name'])) {
echo "library add hf_name not found!";
exit;
}
if (!isset($options['hf_expression'])) {
echo "library add hf_expression not found!";
exit;
}
if (!isset($options['inheritable'])) {
echo "library add inheritable not found!";
exit;
}
if (!isset($options['sys_kinds'])) {
echo "library add sys_kinds not found!";
exit;
}
if (!isset($options['resources'])) {
echo "library add resources not found!";
exit;
}
if (!isset($options['hf_parameters'])) {
echo "library add hf_parameters not found!";
exit;
}
$id_user = $options['id_user'];
$hf_name = $options['hf_name'];
$hf_expression = $options['hf_expression'];
$inheritable = $options['inheritable'];
$sys_kinds = $options['sys_kinds'];
$resources = $options['resources'];
$hf_parameters = $options['hf_parameters'];
$inherit_from = "";
if (isset($options['inherit_from'])) {
$inherit_from = $options['inherit_from'];
}
$id_mime_type = "undefined";
if (isset($options['mime'])) {
$id_mime_type = $options['mime'];
}
$retval = "";
$props = array();
$props['id_user'] = $id_user;
$props['id'] = sha1(microtime() . $hf_name . rand(1, 20));
$retval = $props['id'];
$props['name'] = $hf_name;
$props['str_expression'] = $hf_expression;
// CREATE HIS FUNCTION
$props['id_condition'] = "perfectly";
$props['str_cache_out_xml'] = "undefined";
$props['str_cache_out_cxml'] = "undefined";
$props['str_cache_approved'] = 'undefined';
$props['str_cache_latest'] = 'undefined';
$props['id_mime_type'] = $id_mime_type;
$props['int_ws'] = "0";
$props['int_wait'] = "0";
$props['int_maxruntime'] = "0";
$props['int_delay'] = "10";
$new_hf = new hf_id_user();
$new_hf->create($props);
// CREATE SYSTEM KINDS
foreach ($sys_kinds as $hf_sys_kind) {
echo " ";
$system_kind_current_id = "";
// GET THIS SYS KIND FROM USER_SYSTEM_KINDS
foreach ($u->obj_system_kinds as $user_system_kind) {
if ($user_system_kind->name == $hf_sys_kind) {
$system_kind_current_id = $user_system_kind->id;
}
}
// end foreach (system kind name)
if ($hf_sys_kind == "any") {
$system_kind_current_id = "any";
}
if (strlen($system_kind_current_id) > 0) {
$props = array();
$props['id_hf'] = $new_hf->id;
$props['id'] = sha1(microtime() . $system_kind_current_id . rand(1, 20));
$props['id_sk'] = $system_kind_current_id;
$new_hf_sk = new hf_system_kind();
$new_hf_sk->create($props);
} else {
$library_message .= "Unable to find sys kind: {$hf_sys_kind} for function {$hf_name}.\n";
}
}
// end foreach (system kind)
foreach ($resources as $hf_resource) {
echo " ";
// CREATE RESOURCE
$props = array();
$props['id_hf'] = $new_hf->id;
$props['id'] = sha1(microtime() . $hf_resource['content'] . rand(1, 20));
$props['str_location'] = $hf_resource['content'];
$props['str_filename'] = $hf_resource['filename'];
$new_hf_resource = new hf_resource();
$new_hf_resource->create($props);
echo " ";
if (isset($hf_resource['system_kinds'])) {
foreach ($hf_resource['system_kinds'] as $hfr_system_kind) {
echo " ";
$system_kind_current_id = "";
// GET THIS SYS KIND FROM USER_SYSTEM_KINDS
foreach ($u->obj_system_kinds as $user_system_kind) {
if ($user_system_kind->name == $hfr_system_kind) {
$system_kind_current_id = $user_system_kind->id;
}
}
// end foreach (system kind name)
if ($hfr_system_kind == "any") {
$system_kind_current_id = "any";
}
if (strlen($system_kind_current_id) > 0) {
$new_hfrsk = new hfr_system_kind();
$props = array();
$props['id_resource'] = $new_hf_resource->id;
$props['id'] = sha1(microtime() . rand(1, 20) . $system_kind_current_id);
$props['id_sk'] = $system_kind_current_id;
$new_hfrsk->create($props);
} else {
echo "<pre>";
print_r($u);
echo "LIBRARY ERROR: UNABLE TO FIND SYSTEM KIND ({$hfr_system_kind})";
exit;
}
}
// end foreach (system kind)
}
// end if (system kinds is set)
}
// end if (resource)
if (strlen($inherit_from) > 0) {
$props = array();
$props['id_hf'] = $new_hf->id;
$props['id'] = sha1(microtime() . rand(1, 20) . rand(2, 30));
$props['id_inherit'] = $inherit_from;
$new_hf_inherit = new hf_inherit();
$new_hf_inherit->create($props);
}
// this part makes the function inherit from other functions
if ($inheritable) {
$props = array();
$props['id_user'] = $id_user;
$props['id_hf'] = $new_hf->id;
$new_user_inherit = new user_inherit();
$new_user_inherit->create($props);
}
foreach ($hf_parameters as $hf_parameter) {
echo " ";
$props = array();
$props['id_hf'] = $new_hf->id;
$props['id'] = sha1(microtime() . rand(1, 20) . $hf_parameter['keyword'] . $hf_parameter['parameter_name']);
$props['keyword'] = $hf_parameter['keyword'];
$props['parameter_name'] = $hf_parameter['parameter_name'];
$props['str_default_value'] = $hf_parameter['default_value'];
$props['int_preserve_encode'] = "0";
if (isset($hf_parameter['int_preserve_encode'])) {
if (strtolower($hf_parameter['int_preserve_encode']) == "true") {
$props['int_preserve_encode'] = "1";
}
}
$new_hf_parameter = new hf_parameter();
$new_hf_parameter->create($props);
if (isset($hf_parameter['constraints'])) {
foreach ($hf_parameter['constraints'] as $hfp_constraint) {
echo " ";
$props = array();
$props['id_hf_parameter'] = $new_hf_parameter->id;
$props['id'] = sha1(microtime() . rand(1, 20) . $hfp_constraint['constraint_type'] . $hfp_constraint['constraint_text']);
$props['id_constraint_type'] = $hfp_constraint['constraint_type'];
$props['str_constraint_text'] = $hfp_constraint['constraint_text'];
$new_hfp_vcs = new hfp_vcs();
$new_hfp_vcs->create($props);
//usleep(10);
}
// end foreach
}
//usleep(10);
}
// end foreach
usleep(10);
return $retval;
}
if (strlen($_POST['id_hf']) > 0 && strlen($_POST['keyword']) > 0 && strlen($_POST['parameter_name']) > 0 && strlen($_POST['str_default_value']) >= 0) {
if (!is_system_keyword($_POST['keyword']) && !is_system_post($_POST['parameter_name'])) {
$_POST['id'] = sha1(time() . $_POST['keyword'] . $_POST['str_default_value']);
// add {JOB_FOLDER} and {JID} filtering
// q & action filtering
if (isset($_POST['int_preserve_encode'])) {
$_POST['int_preserve_encode'] = '1';
}
if (isset($_POST['int_immutable'])) {
$_POST['int_immutable'] = '1';
}
if (isset($_POST['int_mandatory'])) {
$_POST['int_mandatory'] = '1';
}
$new_hf_parameter = new hf_parameter();
$new_hf_parameter->create($_POST);
} else {
echo "<div align='center' style='background-color:red;color:white;'>";
echo getTranslation("The provided parameter name or keyword is used by the HIS system itself. Use a different value.", $settings);
echo "</div>";
}
}
// end if (values)
}
// end if (isset)
}
}
// end if (action)
if (isset($_GET['action'])) {
if ($_GET['action'] == "update-mime-type") {
if (isset($_POST['qid']) && isset($_POST['id_mime'])) {
