| Lines 568-580
          RECORD: foreach my $record (@{$marc_records}) {
      
      
        Link Here | 
        
          | 568 |                 my $error_adding = $@; | 568 |                 my $error_adding = $@; | 
        
          | 569 |                 $record_has_added_items = @{$itemnumbers_ref}; | 569 |                 $record_has_added_items = @{$itemnumbers_ref}; | 
        
          | 570 |  | 570 |  | 
            
              | 571 |                 # Work on a clone so that if there are real errors, we can maybe |  |  | 
            
              | 572 |                 # fix them up later. | 
            
              | 573 |                 my $clone_record = $record->clone(); | 
            
              | 574 |                 C4::Biblio::_strip_item_fields($clone_record, $framework); | 
            
              | 575 |                 # This sets the marc fields if there was an error, and also calls | 
            
              | 576 |                 # defer_marc_save. | 
            
              | 577 |                 ModBiblioMarc($clone_record, $record_id, $mod_biblio_options); | 
        
          | 578 |                 if ($error_adding) { | 571 |                 if ($error_adding) { | 
        
          | 579 |                     warn "ERROR: Adding items to bib $record_id failed: $error_adding"; | 572 |                     warn "ERROR: Adding items to bib $record_id failed: $error_adding"; | 
        
          | 580 |                     printlog({ id => $record_id, op => "insert items", status => "ERROR"}) if ($logfile); | 573 |                     printlog({ id => $record_id, op => "insert items", status => "ERROR"}) if ($logfile); | 
  
    | Lines 619-628
          RECORD: foreach my $record (@{$marc_records}) {
      
      
        Link Here | 
        
          | 619 |                         printlog({ id => $record_id, op => "insert items", status => "ERROR" }) if ($logfile); | 612 |                         printlog({ id => $record_id, op => "insert items", status => "ERROR" }) if ($logfile); | 
        
          | 620 |                         # if we failed because of an exception, assume that | 613 |                         # if we failed because of an exception, assume that | 
        
          | 621 |                         # the MARC columns in biblioitems were not set. | 614 |                         # the MARC columns in biblioitems were not set. | 
            
              | 622 |  |  |  | 
            
              | 623 |                         # @FIXME: Why do we save here without stripping items? Besides, | 
            
              | 624 |                         # save with stripped items has already been performed | 
            
              | 625 |                         ModBiblioMarc($record, $record_id, $mod_biblio_options); | 
        
          | 626 |                         next RECORD; | 615 |                         next RECORD; | 
        
          | 627 |                     } | 616 |                     } | 
        
          | 628 |                     $record_has_added_items ||= @{$itemnumbers_ref}; | 617 |                     $record_has_added_items ||= @{$itemnumbers_ref}; | 
            
              | 629 | -  |  |  |