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