[Koha-patches] [PATCH] bug 2955: fix remaining calls to GetMarcFromKohaField

[Galen Charlton]

This includes part of a patch from Henri-Damien Laurent
that could not be applied because Chris and Joe patches
happened to win the race.
---
 cataloguing/addbiblio.pl                |    2 +-
 misc/migration_tools/rebuild_nozebra.pl |    2 +-
 serials/serials-edit.pl                 |    2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl
index 8e2f7b5..f218ca1 100755
--- a/cataloguing/addbiblio.pl
+++ b/cataloguing/addbiblio.pl
@@ -93,7 +93,7 @@ sub MARCfindbreeding {
             if (    C4::Context->preference("z3950NormalizeAuthor")
                 and C4::Context->preference("z3950AuthorAuthFields") )
             {
-                my ( $tag, $subfield ) = GetMarcFromKohaField("biblio.author");
+                my ( $tag, $subfield ) = GetMarcFromKohaField("biblio.author", '');
 
  #                 my $summary = C4::Context->preference("z3950authortemplate");
                 my $auth_fields =
diff --git a/misc/migration_tools/rebuild_nozebra.pl b/misc/migration_tools/rebuild_nozebra.pl
index ec71137..cbcafff 100755
--- a/misc/migration_tools/rebuild_nozebra.pl
+++ b/misc/migration_tools/rebuild_nozebra.pl
@@ -115,7 +115,7 @@ while (my ($biblionumber) = $sth->fetchrow) {
     }
     next unless $record;
     # get title of the record (to store the 10 first letters with the index)
-    my ($titletag,$titlesubfield) = GetMarcFromKohaField('biblio.title');
+    my ($titletag,$titlesubfield) = GetMarcFromKohaField('biblio.title', '');
     my $title = lc($record->subfield($titletag,$titlesubfield));
 
     # remove blancks comma (that could cause problem when decoding the string for CQL retrieval) and regexp specific values
diff --git a/serials/serials-edit.pl b/serials/serials-edit.pl
index b5494cc..1f58a3e 100755
--- a/serials/serials-edit.pl
+++ b/serials/serials-edit.pl
@@ -236,7 +236,7 @@ if ($op eq 'serialchangestatus') {
             #New Item
 			
             # if autoBarcode is set to 'incremental', calculate barcode...
-            my ($barcodetagfield,$barcodetagsubfield) = &GetMarcFromKohaField("items.barcode");
+            my ($barcodetagfield,$barcodetagsubfield) = &GetMarcFromKohaField("items.barcode", '');
             if (C4::Context->preference("autoBarcode") eq 'incremental'  ) {
               if (!$record->field($barcodetagfield)->subfield($barcodetagsubfield)) {
                 my $sth_barcode = $dbh->prepare("select max(abs(barcode)) from items");
-- 
1.5.5.GIT