Upgrading object
";
//Ensure that 'High' sensitivity object order variable is set to 20
editObjectAcl('sensitivities', 'Sensitivities', 'high', 'High', 20);
//Function to edit an object and set the 'order' variable.
//It will check to ensure the object already exist, and hasn't been upgraded yet.
// $section_name = Identifier(string) of section
// $section_title = Title(string) of section
// $object_name = Identifier(string) of object
// $object_title = Title(string) of object
// $order_number = number to determine order in list. used in sensitivities to order the choices
// in openemr
function editObjectAcl($section_name, $section_title, $object_name, $object_title, $order_number) {
global $gacl;
$tmp_objectID = $gacl->get_object_id($section_name, $object_name, 'ACO');
if ($tmp_objectID) {
$tmp_object = $gacl->get_object_data($tmp_objectID, 'ACO');
if ($tmp_object[0][2] == $order_number &&
$tmp_object[0][0] == $section_name &&
$tmp_object[0][1] == $object_name &&
$tmp_object[0][3] == $object_title) {
echo "The '$object_title' object in the '$section_title' section has already been updated.";
}
else {
$tmp_boolean = $gacl->edit_object($tmp_objectID, $section_name, $object_title, $object_name, $order_number, 0, 'ACO');
if ($tmp_boolean) {
echo "The '$object_title' object in the '$section_title' section has been successfully updated.";
}
else {
echo "ERROR,unable to update the '$object_title' object in the '$section_title' section.";
}
}
}
else {
echo "ERROR, the '$object_title' object in the '$section_title' section does not exist.";
}
return;
}
echo "ALL DONE";
?>