package C4::Biblio;
# $Id$
# $Log$
+# Revision 1.67 2003/10/25 08:46:27 tipaul
+# minor fixes for bilbio deletion (still buggy)
+#
# Revision 1.66 2003/10/17 10:02:56 tipaul
# Indexing only words longer than 2 letters. Was >=2 before, & 2 letters words usually means nothing.
#
sub OLDdelbiblio{
my ($dbh,$biblio)=@_;
-# my $dbh=C4Connect;
my $query="select * from biblio where biblionumber=$biblio";
my $sth=$dbh->prepare($query);
$sth->execute;
$query .= "'$temp',";
}
$query=~ s/\,$/\)/;
-# print $query;
$sth=$dbh->prepare($query);
$sth->execute;
$sth->finish;
$sth->finish;
}
$sth->finish;
-# $dbh->disconnect;
}
#
my ($biblio)=@_;
my $dbh = C4::Context->dbh;
&OLDdelbiblio($dbh,$biblio);
+ my $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblio);
+ &MARCdelbiblio($dbh,$bibid,0);
}
sub getitemtypes {
my $notmarcrecord = 0;
for (my $i=0;$i<=$#marcarray;$i++) {
my $marcrecord = MARC::File::USMARC::decode($marcarray[$i]."\x1D");
+ my @warnings = $marcrecord->warnings();
if (ref($marcrecord) eq undef) {
$notmarcrecord++;
} else {