Merging Katipo changes

Now removing the resurrected biblio from the list.
This commit is contained in:
sushi 2006-06-06 23:20:30 +00:00
parent d7648aae50
commit 7f1b79df10

View file

@ -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;
}