From ea83a2ff3ce2238a8cc0aa5fdfc0eee5be5de41c Mon Sep 17 00:00:00 2001
From: Will Budicm <vilijanac@gmail.com>
Date: Mon, 21 Dec 2020 23:32:33 +1100
Subject: [PATCH] UPDATE SQL wasn't progreSQL compatible.

---
 htdocs/cgi-bin/main.cgi | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/htdocs/cgi-bin/main.cgi b/htdocs/cgi-bin/main.cgi
index a737ac3..f51b22f 100755
--- a/htdocs/cgi-bin/main.cgi
+++ b/htdocs/cgi-bin/main.cgi
@@ -79,7 +79,7 @@ my $today = Settings->today();
  
 if(!$prm_vc && &Settings::keepExcludes){
     if($prm_xc_lst){
-        &Settings::configProperty($db, 201, '^EXCLUDES', $prm_xc_lst);
+        Settings::configProperty($db, 201, '^EXCLUDES', $prm_xc_lst);
     }
     else{
        $prm_xc_lst = &Settings::obtainProperty($db, '^EXCLUDES');
@@ -1046,27 +1046,26 @@ sub processSubmit {
         my $rtf    = $cgi->param('rtf');
         my $sticky = $cgi->param('sticky');
         my $stm;
+        my $SQLID = 'rowid'; 
 
         ##TODO
         if($rtf eq 'on'){$rtf = 1}  else {$rtf = 0}
-        if($sticky eq 'on'){$sticky = 1} else {$sticky = 0}
+        if($sticky eq 'on'){$sticky = 1} else {$sticky = 0}           
         if(!$am){$am=0}
-
+        if(Settings::isProgressDB()){$SQLID = 'ID'; $sticky = castToBool($sticky);}
 try {
 #Apostroph's need to be replaced with doubles  and white space to be fixed for the SQL.
             $log =~ s/'/''/g;
 
             if ( $edit_mode && $edit_mode != "0" ) {
-
                 #Update
-                $date = DateTime::Format::SQLite->parse_datetime($date);
-                $stm = qq( UPDATE LOG SET ID_CAT='$cat', ID_RTF='$rtf',
-                                             DATE='$date',
-                                             LOG='$log',
-                                             AMOUNT=$am,
-                                             AFLAG = $af,
-                                             STICKY=$sticky WHERE rowid="$edit_mode";
-                    <br>);
+                $date = DateTime::Format::SQLite->parse_datetime($date); $date =~ s/T/ /g;
+                $stm = qq(UPDATE LOG SET ID_CAT='$cat', ID_RTF='$rtf',
+                                         DATE='$date',
+                                         LOG='$log',
+                                         AMOUNT=$am,
+                                         AFLAG = $af,
+                                         STICKY=$sticky WHERE $SQLID=$edit_mode;);
                 #
                 toBuf $stm if $DEBUG;
                 #
-- 
2.34.1