[Koha-cvs] CVS: koha/C4 Biblio.pm,1.71,1.72
Paul POULAIN
tipaul at users.sourceforge.net
Mon Nov 24 18:40:16 CET 2003
Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv7287/C4
Modified Files:
Biblio.pm
Log Message:
fix for #385
Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.71
retrieving revision 1.72
diff -C2 -r1.71 -r1.72
*** Biblio.pm 24 Nov 2003 16:28:49 -0000 1.71
--- Biblio.pm 24 Nov 2003 17:40:14 -0000 1.72
***************
*** 443,452 ****
}
# the last has not been included inside the loop... do it now !
! if ($prevtag <10) {
! $record->add_fields($prevtag,$prevvalue);
! } else {
! # my $field = MARC::Field->new( $prevtag, "", "", %subfieldlist);
! $record->add_fields($field);
! }
return $record;
}
--- 443,456 ----
}
# the last has not been included inside the loop... do it now !
! if ($prevtag ne "XXX") { # check that we have found something. Otherwise, prevtag is still XXX and we
! # must return an empty record, not make MARC::Record fail because we try to
! # create a record with XXX as field :-(
! if ($prevtag <10) {
! $record->add_fields($prevtag,$prevvalue);
! } else {
! # my $field = MARC::Field->new( $prevtag, "", "", %subfieldlist);
! $record->add_fields($field);
! }
! }
return $record;
}
***************
*** 2210,2213 ****
--- 2214,2220 ----
# $Id$
# $Log$
+ # Revision 1.72 2003/11/24 17:40:14 tipaul
+ # fix for #385
+ #
# Revision 1.71 2003/11/24 16:28:49 tipaul
# biblio & item deletion now works fine in MARC editor.
More information about the Koha-cvs
mailing list