Implemented cgi-param('chk') for comfirmation n remove.cgi

diff --git a/htdocs/cgi-bin/main.cgi b/htdocs/cgi-bin/main.cgi
index 202138a9929a7076a0148019ef3c3d694b3cb9bc..54f7f921704d990422a71716c7702df574ab2b57 100755 (executable)
--- 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 2ac56f0b81b606bb916911152b08c4e7e782a56f..2e074a49f7c3340aeb0c871145a9534b9a321cf2 100755 (executable)
--- 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>";
 }