From d1a905a786918eb8f49dc04b9e2aa44b8f88156f Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Fri, 20 Dec 2002 13:59:07 +0000
Subject: [PATCH] small bugfix to make logout work

---
 opac/opac-logout.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/opac/opac-logout.pl b/opac/opac-logout.pl
index 9fd65e012c..e110cfefd2 100755
--- a/opac/opac-logout.pl
+++ b/opac/opac-logout.pl
@@ -58,7 +58,8 @@ if ($sth->rows) {
     }
 }
 
-$dbh->do("delete from sessions where sessionID=?", $sessionID);
+my $sth=$dbh->prepare("delete from sessions where sessionID=?");
+$sth->execute($sessionID);
 open L, ">>/tmp/sessionlog";
 my $time=localtime(time());
 printf L "%20s from %16s logged out at %30s (manual log out).\n", $userid, $ip, $time;
-- 
2.39.5