- if (@results = $sth->fetchrow_array) {
- $query = "Insert into deletedbiblioitems values (";
- foreach my $value (@results) {
- $value = $dbh->quote($value);
- $query .= "$value,";
- } # foreach
-
- $query =~ s/\,$/\)/;
- $dbh->do($query);
+ if ($results = $sth->fetchrow_hashref) {
+ $sth->finish;
+ $sth=$dbh->prepare("Insert into deletedbiblioitems (biblioitemnumber, biblionumber, volume, number, classification, itemtype,
+ isbn, issn ,dewey ,subclass ,publicationyear ,publishercode ,volumedate ,volumeddesc ,timestamp ,illus ,
+ pages ,notes ,size ,url ,lccn ) values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)");