Code error in delete statments fro NOTES table.

diff --git a/htdocs/cgi-bin/remove.cgi b/htdocs/cgi-bin/remove.cgi
index d983af7e1035272f63092c1e0efaae3b77de3c56..6c711c36ba93d58e8d91aa62389ae51e543a5d5a 100755 (executable)
--- a/htdocs/cgi-bin/remove.cgi
+++ b/htdocs/cgi-bin/remove.cgi
@@ -149,13 +149,12 @@ return "<b>".$d->ymd."</b> ".$d->hms;
 
 sub ConfirmedDelition{
 
-       my $stmS = 'DELETE FROM LOG WHERE '; 
 
        foreach my $prm ($cgi->param('chk')){
-               $stm = qq(DELETE FROM LOG WHERE rowid = '$prm';);
-           $st = $db->prepare( $stm );
+               
+           $st = $db->prepare("DELETE FROM LOG WHERE rowid = '$prm';");
                $rv = $st->execute() or die or die "<p>Error->"& $DBI::errstri &"</p>";
-               $stm = qq(DELETE FROM NOTES WHERE LID = '$prm';);
+               $st = $st = $db->prepare("DELETE FROM NOTES WHERE LID = '$prm';");
                $rv = $st->execute();
 
                if($rv < 0) {