library/registry.inc

   1 <?php
   2 //these are the functions used to access the forms registry database
   3 //
   4
   5
   6 function registerForm($directory, $sql_run = 0, $unpackaged = 1, $state = 0)
   7 {
   8     $check = sqlQuery("select state from registry where directory='$directory'");
   9     if ($check == false) {
  10         $lines = @file($GLOBALS['srcdir']."/../interface/forms/$directory/info.txt");
  11         if ($lines) {
  12             $name = $lines[0];
  13         } else {
  14             $name = $directory;
  15         }
  16
  17         return sqlInsert("insert into registry set
  18                         name='$name',
  19                         state='$state',
  20                         directory='".add_escape_custom($directory)."',
  21                         sql_run='$sql_run',
  22                         unpackaged='$unpackaged',
  23                         date=NOW()
  24                 ");
  25     }
  26
  27     return false;
  28 }
  29
  30 function updateRegistered($id, $mod)
  31 {
  32     return sqlInsert("update registry set
  33                 $mod,
  34                 date=NOW()
  35         where
  36                 id='$id'
  37         ");
  38 }
  39
  40 function getRegistered($state = "1", $limit = "unlimited", $offset = "0")
  41 {
  42     $sql = "select * from registry where state like \"$state\" order by priority, name";
  43     if ($limit != "unlimited") {
  44         $sql .= " limit $limit, $offset";
  45     }
  46
  47     $res = sqlStatement($sql);
  48     if ($res) {
  49         for ($iter=0; $row=sqlFetchArray($res); $iter++) {
  50             $all[$iter] = $row;
  51         }
  52     } else {
  53         return false;
  54     }
  55
  56     return $all;
  57 }
  58
  59 function getRegistryEntry($id, $cols = "*")
  60 {
  61     $sql = "select $cols from registry where id='$id'";
  62     return sqlQuery($sql);
  63 }
  64
  65 function getRegistryEntryByDirectory($directory, $cols = "*")
  66 {
  67     $sql = "select $cols from registry where directory = ?";
  68     return sqlQuery($sql, $directory);
  69 }
  70
  71 function installSQL($dir)
  72 {
  73     $sqltext = $dir."/table.sql";
  74     if ($sqlarray = @file($sqltext)) {
  75         $sql = implode("", $sqlarray);
  76         //echo "<br>$sql<br><br>";
  77         $sqla = explode(";", $sql);
  78         foreach ($sqla as $sqlq) {
  79             if (strlen($sqlq) > 5) {
  80                 sqlStatement(rtrim("$sqlq"));
  81             }
  82         }
  83
  84         return true;
  85     } else {
  86         return false;
  87     }
  88 }
  89
  90
  91 /*
  92  * is a form registered
  93  *  (optional - and active)
  94  * in the database?
  95  *
  96  * NOTE - sometimes the Name of a form has a line-break at the end, thus this function might be better
  97  *
  98  *  INPUT =   directory => form directory
  99  *            state => 0=inactive / 1=active
 100  *  OUTPUT = true or false
 101  */
 102 function isRegistered($directory, $state = 1)
 103 {
 104     $sql = "select id from registry where ".
 105             "directory='".$directory.
 106             "' and state=".$state;
 107     $result = sqlQuery($sql);
 108     if ($result['id'] != '') {
 109         return true;
 110     }
 111
 112     return false;
 113 }
 114
 115 function getTherapyGroupCategories()
 116 {
 117
 118     return array('');
 119 }
 120
 121 // This gets an array including both standard and LBF visit form types,
 122 // one row per form type, sorted by category, priority, is lbf, name.
 123 //
 124 function getFormsByCategory($state = '1', $lbfonly = false)
 125 {
 126     $all = array();
 127     if (!$lbfonly) {
 128       // First get the traditional form types from the registry table.
 129         $sql = "SELECT category, nickname, name, state, directory, id, sql_run, " .
 130         "unpackaged, date, priority, aco_spec FROM registry WHERE " .
 131         "state LIKE ? ORDER BY category, priority, name";
 132         $res = sqlStatement($sql, array($state));
 133         if ($res) {
 134             while ($row = sqlFetchArray($res)) {
 135               // Skip fee_sheet from list of registered forms.
 136                 if ($row['directory'] != 'fee_sheet') {
 137                   // Flag this entry as not LBF
 138                     $row['LBF'] = false;
 139                     $all[] = $row;
 140                 }
 141             }
 142         }
 143     }
 144
 145   // Merge LBF form types into the registry array of form types.
 146   // Note that the mapping value is used as the category name.
 147     $lres = sqlStatement("SELECT * FROM layout_group_properties " .
 148     "WHERE grp_form_id LIKE 'LBF%' AND grp_group_id = '' AND grp_activity = 1 " .
 149     "ORDER BY grp_mapping, grp_seq, grp_title");
 150     while ($lrow = sqlFetchArray($lres)) {
 151         $rrow = array();
 152         $rrow['category']  = $lrow['grp_mapping'] ? $lrow['grp_mapping'] : 'Clinical';
 153         $rrow['name']      = $lrow['grp_title'];
 154         $rrow['nickname']  = $lrow['grp_title'];
 155         $rrow['directory'] = $lrow['grp_form_id']; // should start with LBF
 156         $rrow['priority']  = $lrow['grp_seq'];
 157         $rrow['aco_spec']  = $lrow['grp_aco_spec'];
 158         $rrow['LBF']       = true; // Flag this form as LBF
 159         $all[] = $rrow;
 160     }
 161
 162   // Sort by category, priority, is lbf, name.
 163     usort($all, function ($a, $b) {
 164       // Anonymous functions supported as of PHP 5.3. Yay!
 165         if ($a['category'] == $b['category']) {
 166             if ($a['priority'] == $b['priority']) {
 167                 if ($a['LBF'] == $b['LBF']) {
 168                     $name1 = $a['nickname'] ? $a['nickname'] : $a['name'];
 169                     $name2 = $b['nickname'] ? $b['nickname'] : $b['name'];
 170                     if ($name1 == $name2) {
 171                         return 0;
 172                     }
 173                     return $name1 < $name2 ? -1 : 1;
 174                 } else {
 175                   // Sort LBF with the same priority after standard forms
 176                     return $b['LBF'] ? -1 : 1;
 177                 }
 178             }
 179             return $a['priority'] < $b['priority'] ? -1 : 1;
 180         }
 181         return $a['category'] < $b['category'] ? -1 : 1;
 182     });
 183     return $all;
 184 }