[Koha-cvs] CVS: koha/C4 Biblio.pm,1.66,1.67 Breeding.pm,1.3,1.4
Paul POULAIN
tipaul at users.sourceforge.net
Sat Oct 25 10:46:31 CEST 2003
Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv32447/C4
Modified Files:
Biblio.pm Breeding.pm
Log Message:
minor fixes for bilbio deletion (still buggy)
Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.66
retrieving revision 1.67
diff -C2 -r1.66 -r1.67
*** Biblio.pm 17 Oct 2003 10:02:56 -0000 1.66
--- Biblio.pm 25 Oct 2003 08:46:27 -0000 1.67
***************
*** 2,5 ****
--- 2,8 ----
# $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.
***************
*** 1827,1831 ****
sub OLDdelbiblio{
my ($dbh,$biblio)=@_;
- # my $dbh=C4Connect;
my $query="select * from biblio where biblionumber=$biblio";
my $sth=$dbh->prepare($query);
--- 1830,1833 ----
***************
*** 1839,1843 ****
}
$query=~ s/\,$/\)/;
- # print $query;
$sth=$dbh->prepare($query);
$sth->execute;
--- 1841,1844 ----
***************
*** 1849,1853 ****
}
$sth->finish;
- # $dbh->disconnect;
}
--- 1850,1853 ----
***************
*** 2126,2129 ****
--- 2126,2131 ----
my $dbh = C4::Context->dbh;
&OLDdelbiblio($dbh,$biblio);
+ my $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblio);
+ &MARCdelbiblio($dbh,$bibid,0);
}
Index: Breeding.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Breeding.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** Breeding.pm 8 Sep 2003 08:42:40 -0000 1.3
--- Breeding.pm 25 Oct 2003 08:46:28 -0000 1.4
***************
*** 72,75 ****
--- 72,76 ----
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++;
More information about the Koha-cvs
mailing list