From 7f1b79df108138c0879d2c851665d8ed9da68162 Mon Sep 17 00:00:00 2001 From: sushi Date: Tue, 6 Jun 2006 23:20:30 +0000 Subject: [PATCH] Merging Katipo changes Now removing the resurrected biblio from the list. --- C4/Maintainance.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/C4/Maintainance.pm b/C4/Maintainance.pm index 6bcd53335a..3353d70439 100644 --- a/C4/Maintainance.pm +++ b/C4/Maintainance.pm @@ -185,15 +185,16 @@ sub undeletebib{ $sth->finish; # FIXME - Doesn't this keep the same biblionumber? Isn't this # forbidden by the definition of 'biblio'? Or doesn't it matter? - my $query="Insert into biblio values ("; - $query .= ("?," x $#data); + my $query="INSERT INTO biblio VALUES ("; + my $count = @data; + $query .= ("?," x $count); $query=~ s/\,$/\)/; # print $query; $sth=$dbh->prepare($query); $sth->execute(@data); $sth->finish; } - $sth=$dbh->prepare("Delete from deletedbiblio where biblionumber=?"); + $sth=$dbh->prepare("DELETE FROM deletedbiblio WHERE biblionumber=?"); $sth->execute($bib); $sth->finish; } -- 2.20.1