Lines 439-444
if ($prefillitem) {
Link Here
|
439 |
} |
439 |
} |
440 |
} |
440 |
} |
441 |
|
441 |
|
|
|
442 |
#---- finds where items.homebranch is stored |
443 |
my ($branchtagfield, $branchtagsubfield) = &GetMarcFromKohaField("items.homebranch", $frameworkcode); |
444 |
|
442 |
#------------------------------------------------------------------------------- |
445 |
#------------------------------------------------------------------------------- |
443 |
if ($op eq "additem") { |
446 |
if ($op eq "additem") { |
444 |
|
447 |
|
Lines 527-535
if ($op eq "additem") {
Link Here
|
527 |
if ($add_multiple_copies_submit) { |
530 |
if ($add_multiple_copies_submit) { |
528 |
|
531 |
|
529 |
use C4::Barcodes; |
532 |
use C4::Barcodes; |
530 |
my $barcodeobj = C4::Barcodes->new; |
|
|
531 |
my $oldbarcode = $addedolditem->{'barcode'}; |
533 |
my $oldbarcode = $addedolditem->{'barcode'}; |
532 |
my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.barcode",$frameworkcode); |
534 |
my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.barcode",$frameworkcode); |
|
|
535 |
my $barcodeobj; |
536 |
if ( C4::Context->preference('autoBarcode') eq 'hbyymmincr' ) { |
537 |
my $record_branch = |
538 |
$record |
539 |
->field($branchtagfield) |
540 |
->subfield($branchtagsubfield); |
541 |
$barcodeobj = C4::Barcodes->new('hbyymmincr', $record_branch); |
542 |
} else { |
543 |
$barcodeobj = C4::Barcodes->new(); |
544 |
} |
533 |
|
545 |
|
534 |
# If there is a barcode and we can't find their new values, we can't add multiple copies |
546 |
# If there is a barcode and we can't find their new values, we can't add multiple copies |
535 |
my $testbarcode; |
547 |
my $testbarcode; |
Lines 733-739
my %witness; #---- stores the list of subfields used at least once, with the "me
Link Here
|
733 |
my @big_array; |
745 |
my @big_array; |
734 |
#---- finds where items.itemnumber is stored |
746 |
#---- finds where items.itemnumber is stored |
735 |
my ( $itemtagfield, $itemtagsubfield) = &GetMarcFromKohaField("items.itemnumber", $frameworkcode); |
747 |
my ( $itemtagfield, $itemtagsubfield) = &GetMarcFromKohaField("items.itemnumber", $frameworkcode); |
736 |
my ($branchtagfield, $branchtagsubfield) = &GetMarcFromKohaField("items.homebranch", $frameworkcode); |
|
|
737 |
C4::Biblio::EmbedItemsInMarcBiblio($temp, $biblionumber); |
748 |
C4::Biblio::EmbedItemsInMarcBiblio($temp, $biblionumber); |
738 |
my @fields = $temp->fields(); |
749 |
my @fields = $temp->fields(); |
739 |
|
750 |
|
740 |
- |
|
|