From 0a28f9b24a86be118b983b78ae9b105b758c5a43 Mon Sep 17 00:00:00 2001
From: wbudic <vilijanac@gmail.com>
Date: Sat, 25 Aug 2018 08:16:38 +1000
Subject: [PATCH] Implemented cgi-param('chk') for comfirmation n remove.cgi

---
 htdocs/cgi-bin/main.cgi   |  2 +-
 htdocs/cgi-bin/remove.cgi | 25 ++++++++++---------------
 2 files changed, 11 insertions(+), 16 deletions(-)

diff --git a/htdocs/cgi-bin/main.cgi b/htdocs/cgi-bin/main.cgi
index 202138a..54f7f92 100755
--- a/htdocs/cgi-bin/main.cgi
+++ b/htdocs/cgi-bin/main.cgi
@@ -127,7 +127,7 @@ if($rv < 0) {
 	         $tbl = $tbl . "<tr><td>". $dt->ymd . "</td>" . 
 		          "<td>" . $dt->hms . "</td>" . "<td>" . $row[3] . "</td>".
 			  "<td>" . $ct .
-			  "</td><td><input type=\"checkbox\" value=\"".$row[0]."\"/> </td></tr>\n";
+			  "</td><td><input name=\"chk\"type=\"checkbox\" value=\"".$row[0]."\"/> </td></tr>\n";
 	$tbl_rc +=1;	
  }
 
diff --git a/htdocs/cgi-bin/remove.cgi b/htdocs/cgi-bin/remove.cgi
index 2ac56f0..2e074a4 100755
--- a/htdocs/cgi-bin/remove.cgi
+++ b/htdocs/cgi-bin/remove.cgi
@@ -36,10 +36,11 @@ $today->set_time_zone( 'Australia/Sydney' );
 my $stmtCat = "SELECT * FROM CAT;";
 
 
-$sth = $dbh->prepare( $stmtCat );
+my $sth = $dbh->prepare( $stmtCat );
 my $rv = $sth->execute() or die or die "<p>Error->"& $DBI::errstri &"</p>";
 
 my %hshCats;
+my $tbl_rc =0;
 
  while(my @row = $sth->fetchrow_array()) {
 	$hshCats{$row[0]} = $row[1];
@@ -64,10 +65,16 @@ sub NotConfirmed{
 #Get prms and build confirm table and check
 
 ### TODO	
+my $stm = $stmS ." ";
+foreach my $prm ($q->param('chk')){
+	$stm = $stm . "rowid = '" . $prm . "' OR ";
+}
+#rid=0 hack! ;)
+	$stm = $stm . "rowid = '0' " . $stmE;
 
-#Fetch entries!
+print $stm;	
 #
-$sth = $dbh->prepare( $stmt );
+$sth = $dbh->prepare( $stm );
 $rv = $sth->execute() or die or die "<p>Error->"& $DBI::errstri &"</p>";
 if($rv < 0) {
 	     print "<p>Error->"& $DBI::errstri &"</p>";
@@ -93,21 +100,9 @@ if($rv < 0) {
  $tbl = $tbl . "<tr><td colspan=\"4\"></td><td><input type=\"submit\" value=\"Del\"/></td></tr>";
  $tbl = $tbl . "</table></form>";
 
-my  $frm = qq(
- <form name="frm_log" action="main.cgi" onSubmit="return formValidation();">
-	 <table><tr>
-		 <td>Date</td><td><input type="text" name="date" value=") .$today->ymd ." ". $today->hms . qq("></td>
-		 </tr>
-		 <tr><td>Log:</td> <td><textarea name="log" rows="2" cols="40"></textarea></td>
- 		 <td>).$cats.qq(</td></tr>
-		 <tr><td></td><td></td><td><input type="submit" value="Submit"></td>
-	</tr></table>
-</form>
- );
 
 
 
-print "<div id=\"frm\">\n" . $frm ."</div>";
 print "<div id=\"tbl\">\n" . $tbl ."</div>";
 }
 
-- 
2.34.1