From: wbudic Date: Sat, 13 Oct 2018 18:45:59 +0000 (+1100) Subject: Fixed introduced bug with ammount column. X-Git-Url: https://lifelog.hopto.org/gitweb/?a=commitdiff_plain;h=870ce3b4c496ea3e2ff6d9f8ed269f9546a120b8;p=LifeLog.git Fixed introduced bug with ammount column. --- diff --git a/htdocs/cgi-bin/main.cgi b/htdocs/cgi-bin/main.cgi index 9c93fc3..ead40db 100755 --- a/htdocs/cgi-bin/main.cgi +++ b/htdocs/cgi-bin/main.cgi @@ -74,13 +74,15 @@ my $tbl_rc = 0; my $tbl_rc_prev = 0; my $tbl_cur_id; + + ############### &processSubmit; ############### # # Enable to see main query statement issued! # -# print "### -> ".$stmt; +# print "### -> ".$stmt; # # @@ -99,7 +101,7 @@ my $rs_prev = $q->param('rs_prev'); while(my @row = $sth->fetchrow_array()) { $id = $row[0]; - my $ct = $hshCats{@row[1]}; + my $ct = $hshCats{$row[1]}; my $dt = DateTime::Format::SQLite->parse_datetime( $row[2] ); my $log = $row[3]; my $amm = $row[4]; @@ -127,7 +129,7 @@ my $rs_prev = $q->param('rs_prev'); '' . $amm .''. '' . $ct .''. ' + onclick="edit('.$id.');return false;"/> '; $tbl_rc += 1; @@ -179,6 +181,7 @@ print "
\n" . $frm ."
\n
"; print "
\n" . $tbl ."
"; print ""; + print $q->end_html; $sth->finish; $dbh->disconnect(); @@ -244,12 +247,14 @@ sub processSubmit { my $date = $q->param('date'); my $log = $q->param('log'); my $cat = $q->param('cat'); + my $amm = $q->param('am'); + my $edit_mode = $q->param('submit_is_edit'); my $view_mode = $q->param('submit_is_view'); my $view_all = $q->param('rs_all'); - +try{ #Apostroph's need to be replaced with doubles and white space fixed for the SQL. $log =~ s/(?<=\w) ?' ?(?=\w)/''/g; @@ -276,7 +281,7 @@ sub processSubmit { my $rs_prev = $q->param("rs_prev"); if($rs){ - $stmt = 'SELECT rowid, ID_CAT, DATE, LOG from LOG + $stmt = 'SELECT rowid, ID_CAT, DATE, LOG, AMMOUNT from LOG where rowid <= "'.$rs.'" ORDER BY rowid DESC, DATE DESC;'; return; } @@ -286,22 +291,23 @@ sub processSubmit { #check for double entry # - my $sth = $dbh->prepare( - "SELECT DATE,LOG FROM LOG where DATE='".$date ."' AND LOG='".$log."';" + "SELECT DATE,LOG FROM LOG where DATE='".$date."' AND LOG='".$log."';" ); $sth->execute(); if(my @row = $sth->fetchrow_array()){ return; } - - $sth = $dbh->prepare('INSERT INTO LOG VALUES (?,?,?)'); - $sth->execute( $cat, $date, $log); - + $sth = $dbh->prepare('INSERT INTO LOG VALUES (?,?,?,?)'); + $sth->execute( $cat, $date, $log, $amm); } } +catch{ + print "ERROR:".$_; +} +} diff --git a/htdocs/cgi-bin/wsrc/main.js b/htdocs/cgi-bin/wsrc/main.js index 725642a..c5d6215 100644 --- a/htdocs/cgi-bin/wsrc/main.js +++ b/htdocs/cgi-bin/wsrc/main.js @@ -38,8 +38,7 @@ function setNow(){ return false; } -function edit(el){ - var row = el.nextSibling.value; +function edit(row){ var ec_v = document.getElementById("c"+ row).innerText; var ec = document.getElementById("ec"); @@ -59,6 +58,7 @@ function edit(el){ } } document.getElementById("submit_is_edit").value = row; + document.getElementById("frm_log").log.focus(); return false; }