| Lines 222-231
          sub AddItemFromMarc {
      
      
        Link Here | 
        
          | 222 |     # parse item hash from MARC | 222 |     # parse item hash from MARC | 
        
          | 223 |     my $frameworkcode = C4::Biblio::GetFrameworkCode( $biblionumber ); | 223 |     my $frameworkcode = C4::Biblio::GetFrameworkCode( $biblionumber ); | 
        
          | 224 |     my ($itemtag,$itemsubfield)=C4::Biblio::GetMarcFromKohaField("items.itemnumber",$frameworkcode); | 224 |     my ($itemtag,$itemsubfield)=C4::Biblio::GetMarcFromKohaField("items.itemnumber",$frameworkcode); | 
          
            
              | 225 |  | 225 | 	 | 
            
              | 226 |     my $localitemmarc=MARC::Record->new; | 226 | 	my $localitemmarc=MARC::Record->new; | 
            
              | 227 |     $localitemmarc->append_fields($source_item_marc->field($itemtag)); | 227 | 	$localitemmarc->append_fields($source_item_marc->field($itemtag)); | 
            
              | 228 |     my $item = TransformMarcToKoha( $localitemmarc, $frameworkcode ,'items'); | 228 |     my $item = C4::Biblio::TransformMarcToKoha( $localitemmarc, $frameworkcode ,'items'); | 
        
          | 229 |     my $unlinked_item_subfields = _get_unlinked_item_subfields($localitemmarc, $frameworkcode); | 229 |     my $unlinked_item_subfields = _get_unlinked_item_subfields($localitemmarc, $frameworkcode); | 
        
          | 230 |     return AddItem($item, $biblionumber, $dbh, $frameworkcode, $unlinked_item_subfields); | 230 |     return AddItem($item, $biblionumber, $dbh, $frameworkcode, $unlinked_item_subfields); | 
        
          | 231 | } | 231 | } | 
  
    | Lines 284-290
          sub AddItem {
      
      
        Link Here | 
        
          | 284 |  | 284 |  | 
        
          | 285 |     $item->{'itemnumber'} = $itemnumber; | 285 |     $item->{'itemnumber'} = $itemnumber; | 
        
          | 286 |  | 286 |  | 
          
            
              | 287 |     ModZebra( $item->{biblionumber}, "specialUpdate", "biblioserver" ); | 287 |     C4::Biblio::ModZebra( $item->{biblionumber}, "specialUpdate", "biblioserver" ); | 
        
          | 288 |  | 288 |  | 
        
          | 289 |     logaction( "CATALOGUING", "ADD", $itemnumber, "item" ) | 289 |     logaction( "CATALOGUING", "ADD", $itemnumber, "item" ) | 
        
          | 290 |       if C4::Context->preference("CataloguingLog"); | 290 |       if C4::Context->preference("CataloguingLog"); | 
  
    | Lines 2032-2038
          sub _get_unlinked_item_subfields {
      
      
        Link Here | 
        
          | 2032 |     my $original_item_marc = shift; | 2032 |     my $original_item_marc = shift; | 
        
          | 2033 |     my $frameworkcode = shift; | 2033 |     my $frameworkcode = shift; | 
        
          | 2034 |  | 2034 |  | 
          
            
              | 2035 |     my $marcstructure = GetMarcStructure(1, $frameworkcode, { unsafe => 1 }); | 2035 |     my $marcstructure = C4::Biblio::GetMarcStructure(1, $frameworkcode, { unsafe => 1 }); | 
        
          | 2036 |  | 2036 |  | 
        
          | 2037 |     # assume that this record has only one field, and that that | 2037 |     # assume that this record has only one field, and that that | 
        
          | 2038 |     # field contains only the item information | 2038 |     # field contains only the item information |