From: wbudic Date: Thu, 13 Dec 2018 04:36:33 +0000 (+1100) Subject: Implemented joined or individual view search by category and keywords. Powerful stuff. X-Git-Url: https://lifelog.hopto.org/gitweb/?a=commitdiff_plain;h=721d3786e6d4ccea997255a4d7bda98303cd8cde;p=LifeLog.git Implemented joined or individual view search by category and keywords. Powerful stuff. --- diff --git a/htdocs/cgi-bin/main.cgi b/htdocs/cgi-bin/main.cgi index 919a1a2..bae0c07 100755 --- a/htdocs/cgi-bin/main.cgi +++ b/htdocs/cgi-bin/main.cgi @@ -30,6 +30,7 @@ our $TIME_ZONE = 'Australia/Sydney'; my $q = CGI->new; my $rs_keys = $q->param('keywords'); +my $rs_cat_idx = $q->param('category'); print $q->header(-expires=>"+6os", -charset=>"UTF-8"); @@ -55,7 +56,7 @@ my $stmt = "SELECT rowid, ID_CAT, DATE, LOG, AMMOUNT FROM LOG ORDER BY DATE D $sth = $dbh->prepare( $stmtCat ); $rv = $sth->execute() or die or die "

Error->"& $DBI::errstri &"

"; -my $cats = '\n'; my %hshCats; while(my @row = $sth->fetchrow_array()) { @@ -84,6 +85,10 @@ if($rs_keys){ my $stm = "SELECT rowid, ID_CAT, DATE, LOG, AMMOUNT from LOG WHERE"; my $stmE = " ORDER BY DATE DESC, rowid DESC;"; my @keywords = split / /, $rs_keys; + if($rs_cat_idx){ + $stm = $stm . " ID_CAT='".$rs_cat_idx."' AND"; + } + if(@keywords){ foreach (@keywords) { @@ -95,6 +100,11 @@ if($rs_keys){ $stmt = $stm . $stmE; } } +elsif($rs_cat_idx){ + $stmt = "SELECT rowid, ID_CAT, DATE, LOG, AMMOUNT from LOG WHERE ID_CAT='".$rs_cat_idx."'" . + " ORDER BY DATE DESC, rowid DESC;"; +} + ############### &processSubmit; ############### @@ -241,8 +251,9 @@ if($rs_keys){ $srh = $srh.' ' } - $srh = $srh.'
- + $srh = $srh.'View by Category: +
+
'; # #Page printout from here!