small bugfix to make logout work

liblime · Dec 20, 2002 · d1a905a · d1a905a
1 parent 4844b4c
commit d1a905a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/opac/opac-logout.pl b/opac/opac-logout.pl
@@ -58,7 +58,8 @@
     }
 }
 
-$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;