|
Lines 92-132
sub process {
Link Here
|
| 92 |
|
92 |
|
| 93 |
$self->start; |
93 |
$self->start; |
| 94 |
|
94 |
|
| 95 |
my @record_ids = @{ $args->{record_ids} }; |
95 |
my @record_ids = @{ $args->{record_ids} }; |
| 96 |
my $regex_mod = $args->{regex_mod}; |
96 |
my $regex_mod = $args->{regex_mod}; |
| 97 |
my $new_values = $args->{new_values}; |
97 |
my $new_values = $args->{new_values}; |
| 98 |
my $exclude_from_local_holds_priority = |
98 |
my $exclude_from_local_holds_priority = $args->{exclude_from_local_holds_priority}; |
| 99 |
$args->{exclude_from_local_holds_priority}; |
99 |
my $mark_items_returned = $args->{mark_items_returned}; |
| 100 |
my $mark_items_returned = |
100 |
my $sort1 = $args->{sort1}; |
| 101 |
$args->{mark_items_returned}; |
101 |
my $sort2 = $args->{sort2}; |
| 102 |
|
102 |
|
| 103 |
my $report = { |
103 |
my $report = { |
| 104 |
total_records => scalar @record_ids, |
104 |
total_records => scalar @record_ids, |
| 105 |
modified_fields => 0, |
105 |
modified_fields => 0, |
| 106 |
}; |
106 |
}; |
| 107 |
|
107 |
|
| 108 |
try { |
108 |
try { |
| 109 |
my ($results) = Koha::Items->search( { itemnumber => \@record_ids } )->batch_update( |
109 |
my ($results) = Koha::Items->search( { itemnumber => \@record_ids } )->batch_update( |
| 110 |
{ regex_mod => $regex_mod, |
110 |
{ |
|
|
111 |
regex_mod => $regex_mod, |
| 111 |
new_values => $new_values, |
112 |
new_values => $new_values, |
| 112 |
exclude_from_local_holds_priority => $exclude_from_local_holds_priority, |
113 |
exclude_from_local_holds_priority => $exclude_from_local_holds_priority, |
| 113 |
mark_items_returned => $mark_items_returned, |
114 |
mark_items_returned => $mark_items_returned, |
|
|
115 |
sort1 => $sort1, |
| 116 |
sort2 => $sort2, |
| 114 |
callback => sub { $self->step; }, |
117 |
callback => sub { $self->step; }, |
| 115 |
} |
118 |
} |
| 116 |
); |
119 |
); |
| 117 |
$report->{modified_itemnumbers} = $results->{modified_itemnumbers}; |
120 |
$report->{modified_itemnumbers} = $results->{modified_itemnumbers}; |
| 118 |
$report->{modified_fields} = $results->{modified_fields}; |
121 |
$report->{modified_fields} = $results->{modified_fields}; |
| 119 |
} |
122 |
} catch { |
| 120 |
catch { |
|
|
| 121 |
warn $_; |
123 |
warn $_; |
| 122 |
die "Something terrible has happened!" |
124 |
die "Something terrible has happened!" |
| 123 |
if ( $_ =~ /Rollback failed/ ); # Rollback failed |
125 |
if ( $_ =~ /Rollback failed/ ); # Rollback failed |
| 124 |
}; |
126 |
}; |
| 125 |
|
127 |
|
| 126 |
my $data = $self->decoded_data; |
128 |
my $data = $self->decoded_data; |
| 127 |
$data->{report} = $report; |
129 |
$data->{report} = $report; |
| 128 |
|
130 |
|
| 129 |
$self->finish( $data ); |
131 |
$self->finish($data); |
| 130 |
} |
132 |
} |
| 131 |
|
133 |
|
| 132 |
=head3 enqueue |
134 |
=head3 enqueue |
|
Lines 167-175
sub additional_report {
Link Here
|
| 167 |
if ( scalar(@$itemnumbers) > C4::Context->preference('MaxItemsToDisplayForBatchMod') ) { |
169 |
if ( scalar(@$itemnumbers) > C4::Context->preference('MaxItemsToDisplayForBatchMod') ) { |
| 168 |
return { too_many_items_display => 1 }; |
170 |
return { too_many_items_display => 1 }; |
| 169 |
} else { |
171 |
} else { |
| 170 |
my $items_table = |
172 |
my $items_table = Koha::UI::Table::Builder::Items->new( { itemnumbers => $itemnumbers } )->build_table; |
| 171 |
Koha::UI::Table::Builder::Items->new( { itemnumbers => $itemnumbers } ) |
|
|
| 172 |
->build_table; |
| 173 |
|
173 |
|
| 174 |
return { |
174 |
return { |
| 175 |
items => $items_table->{items}, |
175 |
items => $items_table->{items}, |