| Lines 95-101
          sub set_item_default_location {
      
      
        Link Here | 
        
          | 95 | # NOTE: 'incremental' is the ONLY autoBarcode option available to those not using javascript | 95 | # NOTE: 'incremental' is the ONLY autoBarcode option available to those not using javascript | 
        
          | 96 | sub _increment_barcode { | 96 | sub _increment_barcode { | 
        
          | 97 |     my ($record, $frameworkcode) = @_; | 97 |     my ($record, $frameworkcode) = @_; | 
          
            
              | 98 |     my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.barcode",$frameworkcode); | 98 |     my ($tagfield,$tagsubfield) = &GetMarcFromKohaField( "items.barcode" ); | 
        
          | 99 |     unless ($record->field($tagfield)->subfield($tagsubfield)) { | 99 |     unless ($record->field($tagfield)->subfield($tagsubfield)) { | 
        
          | 100 |         my $sth_barcode = $dbh->prepare("select max(abs(barcode)) from items"); | 100 |         my $sth_barcode = $dbh->prepare("select max(abs(barcode)) from items"); | 
        
          | 101 |         $sth_barcode->execute; | 101 |         $sth_barcode->execute; | 
  
    | Lines 353-359
          sub removeFieldsForPrefill {
      
      
        Link Here | 
        
          | 353 |     my $item = shift; | 353 |     my $item = shift; | 
        
          | 354 |  | 354 |  | 
        
          | 355 |     # Getting item tag | 355 |     # Getting item tag | 
          
            
              | 356 |     my ($tag, $subtag) = GetMarcFromKohaField("items.barcode", ''); | 356 |     my ($tag, $subtag) = GetMarcFromKohaField( "items.barcode" ); | 
        
          | 357 |  | 357 |  | 
        
          | 358 |     # Getting list of subfields to keep | 358 |     # Getting list of subfields to keep | 
        
          | 359 |     my $subfieldsToUseWhenPrefill = C4::Context->preference('SubfieldsToUseWhenPrefill'); | 359 |     my $subfieldsToUseWhenPrefill = C4::Context->preference('SubfieldsToUseWhenPrefill'); | 
  
    | Lines 522-528
          if ($op eq "additem") {
      
      
        Link Here | 
        
          | 522 |         } | 522 |         } | 
        
          | 523 |         else { | 523 |         else { | 
        
          | 524 |             # we have to clear the barcode field in the duplicate item record to make way for the new one generated by the javascript plugin | 524 |             # we have to clear the barcode field in the duplicate item record to make way for the new one generated by the javascript plugin | 
          
            
              | 525 |             my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.barcode",$frameworkcode); | 525 |             my ($tagfield,$tagsubfield) = &GetMarcFromKohaField( "items.barcode" ); | 
        
          | 526 |             my $fieldItem = $itemrecord->field($tagfield); | 526 |             my $fieldItem = $itemrecord->field($tagfield); | 
        
          | 527 |             $itemrecord->delete_field($fieldItem); | 527 |             $itemrecord->delete_field($fieldItem); | 
        
          | 528 |             $fieldItem->delete_subfields($tagsubfield); | 528 |             $fieldItem->delete_subfields($tagsubfield); | 
  
    | Lines 538-545
          if ($op eq "additem") {
      
      
        Link Here | 
        
          | 538 |         my $barcodeobj = C4::Barcodes->new; | 538 |         my $barcodeobj = C4::Barcodes->new; | 
        
          | 539 |         my $copynumber = $addedolditem->{'copynumber'}; | 539 |         my $copynumber = $addedolditem->{'copynumber'}; | 
        
          | 540 |         my $oldbarcode = $addedolditem->{'barcode'}; | 540 |         my $oldbarcode = $addedolditem->{'barcode'}; | 
          
            
              | 541 |         my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.barcode",$frameworkcode); | 541 |         my ($tagfield,$tagsubfield) = &GetMarcFromKohaField( "items.barcode" ); | 
            
              | 542 |         my ($copytagfield,$copytagsubfield) = &GetMarcFromKohaField("items.copynumber",$frameworkcode); | 542 |         my ($copytagfield,$copytagsubfield) = &GetMarcFromKohaField( "items.copynumber" ); | 
        
          | 543 |  | 543 |  | 
        
          | 544 |     # If there is a barcode and we can't find their new values, we can't add multiple copies | 544 |     # If there is a barcode and we can't find their new values, we can't add multiple copies | 
        
          | 545 | 	my $testbarcode; | 545 | 	my $testbarcode; | 
  
    | Lines 625-631
          if ($op eq "additem") {
      
      
        Link Here | 
        
          | 625 |     } | 625 |     } | 
        
          | 626 |     else { | 626 |     else { | 
        
          | 627 |         # we have to clear the barcode field in the duplicate item record to make way for the new one generated by the javascript plugin | 627 |         # we have to clear the barcode field in the duplicate item record to make way for the new one generated by the javascript plugin | 
          
            
              | 628 |         my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.barcode",$frameworkcode); | 628 |         my ($tagfield,$tagsubfield) = &GetMarcFromKohaField( "items.barcode" ); | 
        
          | 629 |         my $fieldItem = $itemrecord->field($tagfield); | 629 |         my $fieldItem = $itemrecord->field($tagfield); | 
        
          | 630 |         $itemrecord->delete_field($fieldItem); | 630 |         $itemrecord->delete_field($fieldItem); | 
        
          | 631 |         $fieldItem->delete_subfields($tagsubfield); | 631 |         $fieldItem->delete_subfields($tagsubfield); | 
  
    | Lines 744-751
          my $temp = GetMarcBiblio({ biblionumber => $biblionumber });
      
      
        Link Here | 
        
          | 744 | my %witness; #---- stores the list of subfields used at least once, with the "meaning" of the code | 744 | my %witness; #---- stores the list of subfields used at least once, with the "meaning" of the code | 
        
          | 745 | my @big_array; | 745 | my @big_array; | 
        
          | 746 | #---- finds where items.itemnumber is stored | 746 | #---- finds where items.itemnumber is stored | 
          
            
              | 747 | my (  $itemtagfield,   $itemtagsubfield) = &GetMarcFromKohaField("items.itemnumber", $frameworkcode); | 747 | my (  $itemtagfield,   $itemtagsubfield) = &GetMarcFromKohaField( "items.itemnumber" ); | 
            
              | 748 | my ($branchtagfield, $branchtagsubfield) = &GetMarcFromKohaField("items.homebranch", $frameworkcode); | 748 | my ($branchtagfield, $branchtagsubfield) = &GetMarcFromKohaField( "items.homebranch" ); | 
        
          | 749 | C4::Biblio::EmbedItemsInMarcBiblio({ | 749 | C4::Biblio::EmbedItemsInMarcBiblio({ | 
        
          | 750 |     marc_record  => $temp, | 750 |     marc_record  => $temp, | 
        
          | 751 |     biblionumber => $biblionumber }); | 751 |     biblionumber => $biblionumber }); | 
  
    | Lines 767-773
          if ( C4::Context->preference('EasyAnalyticalRecords') ) {
      
      
        Link Here | 
        
          | 767 |                 biblionumber => $hostbiblionumber, | 767 |                 biblionumber => $hostbiblionumber, | 
        
          | 768 |                 embed_items  => 1 }); | 768 |                 embed_items  => 1 }); | 
        
          | 769 |             if ($hostrecord) { | 769 |             if ($hostrecord) { | 
          
            
              | 770 |                 my ($itemfield, undef) = GetMarcFromKohaField( 'items.itemnumber', GetFrameworkCode($hostbiblionumber) ); | 770 |                 my ($itemfield, undef) = GetMarcFromKohaField( 'items.itemnumber' ); | 
        
          | 771 |                 foreach my $hostitem ($hostrecord->field($itemfield)){ | 771 |                 foreach my $hostitem ($hostrecord->field($itemfield)){ | 
        
          | 772 |                     if ($hostitem->subfield('9') eq $hostfield->subfield('9')){ | 772 |                     if ($hostitem->subfield('9') eq $hostfield->subfield('9')){ | 
        
          | 773 |                         push (@fields, $hostitem); | 773 |                         push (@fields, $hostitem); | 
  
    | Lines 827-833
          foreach my $field (@fields) {
      
      
        Link Here | 
        
          | 827 |     } | 827 |     } | 
        
          | 828 | } | 828 | } | 
        
          | 829 |  | 829 |  | 
          
            
              | 830 | my ($holdingbrtagf,$holdingbrtagsubf) = &GetMarcFromKohaField("items.holdingbranch",$frameworkcode); | 830 | my ($holdingbrtagf,$holdingbrtagsubf) = &GetMarcFromKohaField( "items.holdingbranch" ); | 
        
          | 831 | @big_array = sort {$a->{$holdingbrtagsubf} cmp $b->{$holdingbrtagsubf}} @big_array; | 831 | @big_array = sort {$a->{$holdingbrtagsubf} cmp $b->{$holdingbrtagsubf}} @big_array; | 
        
          | 832 |  | 832 |  | 
        
          | 833 | # now, construct template ! | 833 | # now, construct template ! |