| 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 526-532
          if ($op eq "additem") {
      
      
        Link Here | 
        
          | 526 |         } | 526 |         } | 
        
          | 527 |         else { | 527 |         else { | 
        
          | 528 |             # we have to clear the barcode field in the duplicate item record to make way for the new one generated by the javascript plugin | 528 |             # we have to clear the barcode field in the duplicate item record to make way for the new one generated by the javascript plugin | 
          
            
              | 529 |             my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.barcode",$frameworkcode); | 529 |             my ($tagfield,$tagsubfield) = &GetMarcFromKohaField( "items.barcode" ); | 
        
          | 530 |             my $fieldItem = $itemrecord->field($tagfield); | 530 |             my $fieldItem = $itemrecord->field($tagfield); | 
        
          | 531 |             $itemrecord->delete_field($fieldItem); | 531 |             $itemrecord->delete_field($fieldItem); | 
        
          | 532 |             $fieldItem->delete_subfields($tagsubfield); | 532 |             $fieldItem->delete_subfields($tagsubfield); | 
  
    | Lines 542-549
          if ($op eq "additem") {
      
      
        Link Here | 
        
          | 542 |         my $barcodeobj = C4::Barcodes->new; | 542 |         my $barcodeobj = C4::Barcodes->new; | 
        
          | 543 |         my $copynumber = $addedolditem->{'copynumber'}; | 543 |         my $copynumber = $addedolditem->{'copynumber'}; | 
        
          | 544 |         my $oldbarcode = $addedolditem->{'barcode'}; | 544 |         my $oldbarcode = $addedolditem->{'barcode'}; | 
          
            
              | 545 |         my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.barcode",$frameworkcode); | 545 |         my ($tagfield,$tagsubfield) = &GetMarcFromKohaField( "items.barcode" ); | 
            
              | 546 |         my ($copytagfield,$copytagsubfield) = &GetMarcFromKohaField("items.copynumber",$frameworkcode); | 546 |         my ($copytagfield,$copytagsubfield) = &GetMarcFromKohaField( "items.copynumber" ); | 
        
          | 547 |  | 547 |  | 
        
          | 548 |     # If there is a barcode and we can't find their new values, we can't add multiple copies | 548 |     # If there is a barcode and we can't find their new values, we can't add multiple copies | 
        
          | 549 | 	my $testbarcode; | 549 | 	my $testbarcode; | 
  
    | Lines 629-635
          if ($op eq "additem") {
      
      
        Link Here | 
        
          | 629 |     } | 629 |     } | 
        
          | 630 |     else { | 630 |     else { | 
        
          | 631 |         # we have to clear the barcode field in the duplicate item record to make way for the new one generated by the javascript plugin | 631 |         # we have to clear the barcode field in the duplicate item record to make way for the new one generated by the javascript plugin | 
          
            
              | 632 |         my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.barcode",$frameworkcode); | 632 |         my ($tagfield,$tagsubfield) = &GetMarcFromKohaField( "items.barcode" ); | 
        
          | 633 |         my $fieldItem = $itemrecord->field($tagfield); | 633 |         my $fieldItem = $itemrecord->field($tagfield); | 
        
          | 634 |         $itemrecord->delete_field($fieldItem); | 634 |         $itemrecord->delete_field($fieldItem); | 
        
          | 635 |         $fieldItem->delete_subfields($tagsubfield); | 635 |         $fieldItem->delete_subfields($tagsubfield); | 
  
    | Lines 748-755
          my $temp = GetMarcBiblio({ biblionumber => $biblionumber });
      
      
        Link Here | 
        
          | 748 | my %witness; #---- stores the list of subfields used at least once, with the "meaning" of the code | 748 | my %witness; #---- stores the list of subfields used at least once, with the "meaning" of the code | 
        
          | 749 | my @big_array; | 749 | my @big_array; | 
        
          | 750 | #---- finds where items.itemnumber is stored | 750 | #---- finds where items.itemnumber is stored | 
          
            
              | 751 | my (  $itemtagfield,   $itemtagsubfield) = &GetMarcFromKohaField("items.itemnumber", $frameworkcode); | 751 | my (  $itemtagfield,   $itemtagsubfield) = &GetMarcFromKohaField( "items.itemnumber" ); | 
            
              | 752 | my ($branchtagfield, $branchtagsubfield) = &GetMarcFromKohaField("items.homebranch", $frameworkcode); | 752 | my ($branchtagfield, $branchtagsubfield) = &GetMarcFromKohaField( "items.homebranch" ); | 
        
          | 753 | C4::Biblio::EmbedItemsInMarcBiblio({ | 753 | C4::Biblio::EmbedItemsInMarcBiblio({ | 
        
          | 754 |     marc_record  => $temp, | 754 |     marc_record  => $temp, | 
        
          | 755 |     biblionumber => $biblionumber }); | 755 |     biblionumber => $biblionumber }); | 
  
    | Lines 771-777
          if ( C4::Context->preference('EasyAnalyticalRecords') ) {
      
      
        Link Here | 
        
          | 771 |                 biblionumber => $hostbiblionumber, | 771 |                 biblionumber => $hostbiblionumber, | 
        
          | 772 |                 embed_items  => 1 }); | 772 |                 embed_items  => 1 }); | 
        
          | 773 |             if ($hostrecord) { | 773 |             if ($hostrecord) { | 
          
            
              | 774 |                 my ($itemfield, undef) = GetMarcFromKohaField( 'items.itemnumber', GetFrameworkCode($hostbiblionumber) ); | 774 |                 my ($itemfield, undef) = GetMarcFromKohaField( 'items.itemnumber' ); | 
        
          | 775 |                 foreach my $hostitem ($hostrecord->field($itemfield)){ | 775 |                 foreach my $hostitem ($hostrecord->field($itemfield)){ | 
        
          | 776 |                     if ($hostitem->subfield('9') eq $hostfield->subfield('9')){ | 776 |                     if ($hostitem->subfield('9') eq $hostfield->subfield('9')){ | 
        
          | 777 |                         push (@fields, $hostitem); | 777 |                         push (@fields, $hostitem); | 
  
    | Lines 831-837
          foreach my $field (@fields) {
      
      
        Link Here | 
        
          | 831 |     } | 831 |     } | 
        
          | 832 | } | 832 | } | 
        
          | 833 |  | 833 |  | 
          
            
              | 834 | my ($holdingbrtagf,$holdingbrtagsubf) = &GetMarcFromKohaField("items.holdingbranch",$frameworkcode); | 834 | my ($holdingbrtagf,$holdingbrtagsubf) = &GetMarcFromKohaField( "items.holdingbranch" ); | 
        
          | 835 | @big_array = sort {$a->{$holdingbrtagsubf} cmp $b->{$holdingbrtagsubf}} @big_array; | 835 | @big_array = sort {$a->{$holdingbrtagsubf} cmp $b->{$holdingbrtagsubf}} @big_array; | 
        
          | 836 |  | 836 |  | 
        
          | 837 | # now, construct template ! | 837 | # now, construct template ! |