From: Nahuel ANGELINETTI <nahuel.angelinetti@biblibre.com>
Date: Mon, 11 May 2009 08:46:58 +0000 (+0200)
Subject: (bug #3198) fix serial receive with autobarcode
X-Git-Tag: ontop~49
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=8cd87e5426326acbcf5ef1e010915e9c770a4c0e;p=koha.git

(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 <galen.charlton@liblime.com>
---

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");