| Lines 88-100
          sub process {
      
      
        Link Here | 
        
          | 88 |             my $record = C4::Biblio::GetMarcBiblio({ biblionumber => $biblionumber }); | 88 |             my $record = C4::Biblio::GetMarcBiblio({ biblionumber => $biblionumber }); | 
        
          | 89 |             C4::MarcModificationTemplates::ModifyRecordWithTemplate( $mmtid, $record ); | 89 |             C4::MarcModificationTemplates::ModifyRecordWithTemplate( $mmtid, $record ); | 
        
          | 90 |             my $frameworkcode = C4::Biblio::GetFrameworkCode( $biblionumber ); | 90 |             my $frameworkcode = C4::Biblio::GetFrameworkCode( $biblionumber ); | 
          
            
              | 91 |             C4::Biblio::ModBiblio( $record, $biblionumber, $frameworkcode, | 91 |             C4::Biblio::ModBiblio( $record, $biblionumber, $frameworkcode, { | 
            
              | 92 |                 { | 92 |                 context => $args->{context}, | 
            
              | 93 |                     source => $args->{source}, | 93 |             }); | 
            
              | 94 |                     categorycode => $args->{categorycode}, |  |  | 
            
              | 95 |                     userid => $args->{userid}, | 
            
              | 96 |                 } | 
            
              | 97 |             ); | 
        
          | 98 |         }; | 94 |         }; | 
        
          | 99 |         if ( $error and $error != 1 or $@ ) { # ModBiblio returns 1 if everything as gone well | 95 |         if ( $error and $error != 1 or $@ ) { # ModBiblio returns 1 if everything as gone well | 
        
          | 100 |             push @messages, { | 96 |             push @messages, { | 
  
    | Lines 137-148
          sub enqueue {
      
      
        Link Here | 
        
          | 137 |     return unless exists $args->{mmtid}; | 133 |     return unless exists $args->{mmtid}; | 
        
          | 138 |     return unless exists $args->{record_ids}; | 134 |     return unless exists $args->{record_ids}; | 
        
          | 139 |  | 135 |  | 
            
              | 140 |     my $mmtid = $args->{mmtid}; |  |  | 
            
              | 141 |     my @record_ids = @{ $args->{record_ids} }; | 
            
              | 142 |  | 
        
          | 143 |     $self->SUPER::enqueue({ | 136 |     $self->SUPER::enqueue({ | 
          
            
              | 144 |         job_size => scalar @record_ids, | 137 |         job_size => scalar @{$args->{record_ids}}, | 
            
              | 145 |         job_args => {mmtid => $mmtid, record_ids => \@record_ids,} | 138 |         job_args => $args, | 
        
          | 146 |     }); | 139 |     }); | 
        
          | 147 | } | 140 | } | 
        
          | 148 |  | 141 |  |