Lines 81-88
sub process {
Link Here
|
81 |
|
81 |
|
82 |
$self->start; |
82 |
$self->start; |
83 |
|
83 |
|
84 |
my @record_ids = @{ $args->{record_ids} }; |
84 |
my @record_ids = @{ $args->{record_ids} }; |
85 |
my $delete_biblios = $args->{delete_biblios}; |
85 |
my $delete_biblios = $args->{delete_biblios}; |
|
|
86 |
my $delete_serial_issues = $args->{delete_serial_issues}; |
86 |
|
87 |
|
87 |
my $report = { |
88 |
my $report = { |
88 |
total_records => scalar @record_ids, |
89 |
total_records => scalar @record_ids, |
Lines 123-128
sub process {
Link Here
|
123 |
next; |
124 |
next; |
124 |
} |
125 |
} |
125 |
|
126 |
|
|
|
127 |
if ( $return && $delete_serial_issues ) { |
128 |
my $serial_item = $item->serial_item; |
129 |
if ($serial_item) { |
130 |
my $serial = Koha::Serials->find( $serial_item->serialid ); |
131 |
$serial->delete; |
132 |
$serial_item->delete; |
133 |
} |
134 |
} |
135 |
|
126 |
push @deleted_itemnumbers, $item->itemnumber; |
136 |
push @deleted_itemnumbers, $item->itemnumber; |
127 |
push @biblionumbers, $item->biblionumber; |
137 |
push @biblionumbers, $item->biblionumber; |
128 |
|
138 |
|
Lines 221-235
sub enqueue {
Link Here
|
221 |
# TODO Raise exception instead |
231 |
# TODO Raise exception instead |
222 |
return unless exists $args->{record_ids}; |
232 |
return unless exists $args->{record_ids}; |
223 |
|
233 |
|
224 |
my @record_ids = @{ $args->{record_ids} }; |
234 |
my @record_ids = @{ $args->{record_ids} }; |
225 |
my $delete_biblios = $args->{delete_biblios} || 0; |
235 |
my $delete_biblios = $args->{delete_biblios} || 0; |
|
|
236 |
my $delete_serial_issues = $args->{delete_serial_issues} || 0; |
226 |
|
237 |
|
227 |
$self->SUPER::enqueue( |
238 |
$self->SUPER::enqueue( |
228 |
{ |
239 |
{ |
229 |
job_size => scalar @record_ids, |
240 |
job_size => scalar @record_ids, |
230 |
job_args => { |
241 |
job_args => { |
231 |
record_ids => \@record_ids, |
242 |
record_ids => \@record_ids, |
232 |
delete_biblios => $delete_biblios, |
243 |
delete_biblios => $delete_biblios, |
|
|
244 |
delete_serial_issues => $delete_serial_issues, |
233 |
}, |
245 |
}, |
234 |
job_queue => 'long_tasks', |
246 |
job_queue => 'long_tasks', |
235 |
} |
247 |
} |