gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(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>
This commit is contained in:
Nahuel ANGELINETTI 2009-05-11 10:46:58 +02:00 committed by Galen Charlton
parent 5c4829dc5e
commit 8cd87e5426
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
serials/serials-edit.pl
View File

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