Updated to reflect significant bug fixes in save.php.
[openemr.git] / library / sql-ledger.inc
blob8309317d2cee0d4533901ecfdbd1853bd3ff121d
1 <?
2   // include_once("../interface/globals.php");
4   $sl_conn = 0; // connection object
5   $sl_err = ""; // global error message
7   function SLConnect() {
8     global $sl_conn, $sl_dbname, $sl_dbuser, $sl_dbpass;
9     $sl_conn = pg_pconnect("host=localhost dbname=$sl_dbname user=$sl_dbuser password=$sl_dbpass");
10     if (!$sl_conn) die("Failed to connect to SQL-Ledger database.");
11   }
13   function SLClose() {
14     global $sl_conn;
15     if ($sl_conn) pg_close($sl_conn);
16   }
18   function SLQuery($query) {
19     global $sl_conn, $sl_err;
20     $sl_err = "";
21     $res = pg_exec($sl_conn, $query);
22     if (!$res || pg_numrows($res) < 0) {
23       $sl_err = pg_errormessage($sl_conn) . ": $query";
24       if (! $sl_err) $sl_err = "Query failed:" + $query;
25     }
26     return $res;
27   }
29   function SLRowCount($res) {
30     return pg_numrows($res);
31   }
33   function SLAffectedCount($res) {
34     return pg_affected_rows($res);
35   }
37   function SLGetRow($res, $rownum) {
38     return pg_fetch_array($res, $rownum, PGSQL_ASSOC);
39   }
41   function SLQueryValue($query) {
42     $res = SLQuery($query);
43     if (! $sl_err && SLRowCount($res) > 0) {
44       $tmp = pg_fetch_array($res, 0);
45       return $tmp[0];
46     }
47     return "";
48   }
50   function SLFreeResult($res) {
51     pg_freeresult($res);
52   }