This commit is contained in:
tipaul 2003-11-24 17:40:14 +00:00
parent 5175c45aaf
commit e5fddea941

View file

@ -442,12 +442,16 @@ sub MARCgetbiblio {
} }
} }
# the last has not been included inside the loop... do it now ! # the last has not been included inside the loop... do it now !
if ($prevtag <10) { if ($prevtag ne "XXX") { # check that we have found something. Otherwise, prevtag is still XXX and we
$record->add_fields($prevtag,$prevvalue); # must return an empty record, not make MARC::Record fail because we try to
} else { # create a record with XXX as field :-(
# my $field = MARC::Field->new( $prevtag, "", "", %subfieldlist); if ($prevtag <10) {
$record->add_fields($field); $record->add_fields($prevtag,$prevvalue);
} } else {
# my $field = MARC::Field->new( $prevtag, "", "", %subfieldlist);
$record->add_fields($field);
}
}
return $record; return $record;
} }
sub MARCgetitem { sub MARCgetitem {
@ -2209,6 +2213,9 @@ Paul POULAIN paul.poulain@free.fr
# $Id$ # $Id$
# $Log$ # $Log$
# Revision 1.72 2003/11/24 17:40:14 tipaul
# fix for #385
#
# Revision 1.71 2003/11/24 16:28:49 tipaul # Revision 1.71 2003/11/24 16:28:49 tipaul
# biblio & item deletion now works fine in MARC editor. # biblio & item deletion now works fine in MARC editor.
# Stores deleted biblio/item in the marc field of the deletedbiblio/deleteditem table. # Stores deleted biblio/item in the marc field of the deletedbiblio/deleteditem table.