From 8349e731373888c94248744841d3adefcd9e0244 Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Sun, 28 Nov 2010 13:33:03 +0100 Subject: [PATCH] Bug 5430: Follow-up, fixes error message when no 001 exists Content-Type: text/plain; charset="utf-8" Please test. --- C4/Biblio.pm | 6 +++++- 1 files changed, 5 insertions(+), 1 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 4102e23..c3a3094 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -1269,8 +1269,12 @@ sub GetMarcControlnumber { # Control number or Record identifier are the same field in MARC21 and UNIMARC # Keep $marcflavour for possible later use if ($marcflavour eq "MARC21" || $marcflavour eq "UNIMARC") { - $controlnumber = $record->field('001')->data(); + my $controlnumberField = $record->field('001'); + if ($controlnumberField) { + $controlnumber = $controlnumberField->data(); + } } + return $controlnumber; } =head2 GetMarcNotes -- 1.7.1