Bug Fixing: verifying that biblionumber is not already stored in marcrecord before storing it

Signed-off-by: Chris Cormack <crc@liblime.com>
This commit is contained in:
Henri-Damien LAURENT 2007-09-28 16:45:17 +02:00 committed by Chris Cormack
parent 4c39033dcc
commit b0e77eb844

View file

@ -393,10 +393,10 @@ sub ModBiblio {
# adding biblionumber
my ($tag_biblionumber, $subfield_biblionumber) = GetMarcFromKohaField('biblio.biblionumber',$frameworkcode);
$record->append_fields(
MARC::Field->new(
$tag_biblionumber,'','',$subfield_biblionumber => $biblionumber
)
);
MARC::Field->new(
$tag_biblionumber,'','',$subfield_biblionumber => $biblionumber
)
) unless ($record->subfield($tag_biblionumber,$subfield_biblionumber);
# update the MARC record (that now contains biblio and items) with the new record data
&ModBiblioMarc( $record, $biblionumber, $frameworkcode );