From 7b680ff7ce667981b9b3f02c63c6deb8f0786b6d Mon Sep 17 00:00:00 2001
From: Metabox <vilijanac@gmail.com>
Date: Mon, 5 Aug 2019 16:44:03 +1000
Subject: [PATCH] Code error in delete statments fro NOTES table.

---
 htdocs/cgi-bin/remove.cgi | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/htdocs/cgi-bin/remove.cgi b/htdocs/cgi-bin/remove.cgi
index d983af7..6c711c3 100755
--- 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) {
-- 
2.34.1