bugfix : handling biblionumber in a field < 010

the bug occur only if we have a malformed biblio, so it should "never" happend, but i've seen it once ;-)

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

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 1b93f0f..d192b13 100644 (file)
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -393,12 +393,19 @@ sub ModBiblio {
     
     # adding biblionumber
     my ($tag_biblionumber, $subfield_biblionumber) = GetMarcFromKohaField('biblio.biblionumber',$frameworkcode);
-    $record->append_fields(
-           MARC::Field->new(
-                   $tag_biblionumber,'','',$subfield_biblionumber => $biblionumber
-           )
-    ) unless ($record->subfield($tag_biblionumber,$subfield_biblionumber));
-    
+    if ($tag_biblionumber < 10) {
+        $record->append_fields(
+                MARC::Field->new(
+                        $tag_biblionumber, $biblionumber
+                )
+        ) unless $record->field($tag_biblionumber);
+    } else {
+        $record->append_fields(
+                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 );