From: wbudic Date: Fri, 12 Oct 2018 20:22:11 +0000 (+1100) Subject: Added Ammount column used for monetary purposes. X-Git-Url: https://lifelog.hopto.org/gitweb/?a=commitdiff_plain;h=6e2395ffc1ca1454036c3a54f358f5b53aa3939e;p=LifeLog.git Added Ammount column used for monetary purposes. --- diff --git a/htdocs/cgi-bin/main.cgi b/htdocs/cgi-bin/main.cgi index e138e7b..9c93fc3 100755 --- a/htdocs/cgi-bin/main.cgi +++ b/htdocs/cgi-bin/main.cgi @@ -48,7 +48,7 @@ $today->set_time_zone( $TIME_ZONE ); ##################### my $stmtCat = "SELECT * FROM CAT;"; -my $stmt = "SELECT rowid, ID_CAT, DATE, LOG from LOG ORDER BY rowid DESC, DATE DESC;"; +my $stmt = "SELECT rowid, ID_CAT, DATE, LOG, AMMOUNT FROM LOG ORDER BY rowid DESC, DATE DESC;"; $sth = $dbh->prepare( $stmtCat ); @@ -68,7 +68,7 @@ $cats = $cats.''; my $tbl = qq(
-); +); my $tbl_rc = 0; my $tbl_rc_prev = 0; @@ -102,13 +102,15 @@ my $rs_prev = $q->param('rs_prev'); my $ct = $hshCats{@row[1]}; my $dt = DateTime::Format::SQLite->parse_datetime( $row[2] ); my $log = $row[3]; - + my $amm = $row[4]; #Apostrophe in the log value is doubled to avoid SQL errors. $log =~ s/''/'/g; # - + if(!$amm){ + $amm = "0.00"; + } if($tbl_rc_prev == 0){ $tbl_rc_prev = $id; } @@ -121,10 +123,11 @@ my $rs_prev = $q->param('rs_prev'); $tbl = $tbl . '' . '" . '". - ' - '. + ''. + ''. + ''; $tbl_rc += 1; @@ -151,15 +154,15 @@ my $rs_prev = $q->param('rs_prev'); my $frm = qq( -
DateTimeLogCategoryEdit
DateTimeLog#CategoryEdit
'. $dt->ymd . '' . $dt->hms . "' . $log . "' . $ct . - ' + '" class="log">' . $log . '' . $amm .'' . $ct .'
+
- + - + -
* LOG ENTRY FORM *

Date:hms . qq(">Category:Date:hms . qq(">Category:
Log:
Log: ).$cats.qq(
+
Ammount:
@@ -313,7 +316,8 @@ sub checkCreateTables(){ CREATE TABLE LOG ( ID_CAT TINY NOT NULL, DATE DATETIME NOT NULL, - LOG VCHAR(128) NOT NULL + LOG VCHAR(128) NOT NULL, + AMMOUNT integer ); ); @@ -352,6 +356,7 @@ sub checkCreateTables(){ $sth->execute(9,"Event"); $sth->execute(28,"Personal"); $sth->execute(32, "Expense"); + $sth->execute(35, "Income"); } } diff --git a/htdocs/cgi-bin/wsrc/main.css b/htdocs/cgi-bin/wsrc/main.css index 5303060..3f977c5 100644 --- a/htdocs/cgi-bin/wsrc/main.css +++ b/htdocs/cgi-bin/wsrc/main.css @@ -48,3 +48,11 @@ div{ font-size:7pt; border=:0px; } + +#al{ + align-items:left; + align:left; + align-content:left; + text-align:left; +} +