Lines 577-583
if ($op eq "additem") {
Link Here
|
577 |
|
577 |
|
578 |
# Putting it into the record |
578 |
# Putting it into the record |
579 |
if ($barcodevalue) { |
579 |
if ($barcodevalue) { |
580 |
$record->field($tagfield)->update($tagsubfield => $barcodevalue); |
580 |
if ( C4::Context->preference("autoBarcode") eq 'hbyymmincr' && $i > 0 ) { # The first copy already contains the homebranch prefix |
|
|
581 |
# This is terribly hacky but the easiest way to fix the way hbyymmincr is working |
582 |
# Contrary to what one might think, the barcode plugin does not prefix the returned string with the homebranch |
583 |
# For a single item, it is handled with some JS code (see cataloguing/value_builder/barcode.pl) |
584 |
# But when adding multiple copies we need to prefix it here, |
585 |
# so we retrieve the homebranch from the item and prefix the barcode with it. |
586 |
my ($hb_field, $hb_subfield) = GetMarcFromKohaField( "items.homebranch" ); |
587 |
my $homebranch = $record->subfield($hb_field, $hb_subfield); |
588 |
$barcodevalue = $homebranch . $barcodevalue; |
589 |
} |
590 |
$record->field($tagfield)->update($tagsubfield => $barcodevalue); |
581 |
} |
591 |
} |
582 |
|
592 |
|
583 |
# Checking if the barcode already exists |
593 |
# Checking if the barcode already exists |
584 |
- |
|
|