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 |
|