From 8f07521a2d1ccc40d22cbeb292c23104715c838d Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Thu, 12 Feb 2009 16:28:41 -0600 Subject: [PATCH] bug 2955: fix remaining calls to GetMarcFromKohaField 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. Signed-off-by: Galen Charlton --- 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 8e2f7b5ea7..f218ca1629 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 ec71137e03..cbcafff1e4 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 b5494cc230..1f58a3e821 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"); -- 2.39.5