From 8cd87e5426326acbcf5ef1e010915e9c770a4c0e Mon Sep 17 00:00:00 2001 From: Nahuel ANGELINETTI Date: Mon, 11 May 2009 10:46:58 +0200 Subject: [PATCH] (bug #3198) fix serial receive with autobarcode this add an arg to GetMarcFromKohaField, else it will always return (0,0). Signed-off-by: Galen Charlton --- serials/serials-edit.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/serials/serials-edit.pl b/serials/serials-edit.pl index 1f58a3e821..9994e445b4 100755 --- a/serials/serials-edit.pl +++ b/serials/serials-edit.pl @@ -86,7 +86,7 @@ my @notes = $query->param('notes'); my @subscriptionids = $query->param('subscriptionid'); my $op = $query->param('op'); if (scalar(@subscriptionids)==1 && index($subscriptionids[0],",")>0){ - @subscriptionids =split /,/,$subscriptionids[0]; + @subscriptionids =split (/,/,$subscriptionids[0]); } my @errors; my @errseq; @@ -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", GetFrameworkCode($serialdatalist[0]->{'biblionumber'})); 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