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

Signed-off-by: Chris Cormack <crc@liblime.com>

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index ceb906f..03d749f 100644 (file)
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -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 );