Lines 43-48
use List::MoreUtils qw( none );
Link Here
|
43 |
|
43 |
|
44 |
my $minlocation=$input->param('minlocation') || ''; |
44 |
my $minlocation=$input->param('minlocation') || ''; |
45 |
my $maxlocation=$input->param('maxlocation'); |
45 |
my $maxlocation=$input->param('maxlocation'); |
|
|
46 |
my $class_source=$input->param('class_source'); |
46 |
$maxlocation=$minlocation.'Z' unless ( $maxlocation || ! $minlocation ); |
47 |
$maxlocation=$minlocation.'Z' unless ( $maxlocation || ! $minlocation ); |
47 |
my $location=$input->param('location') || ''; |
48 |
my $location=$input->param('location') || ''; |
48 |
my $ignoreissued=$input->param('ignoreissued'); |
49 |
my $ignoreissued=$input->param('ignoreissued'); |
Lines 114-119
for my $authvfield (@$statuses) {
Link Here
|
114 |
} |
115 |
} |
115 |
} |
116 |
} |
116 |
|
117 |
|
|
|
118 |
my $schema = Koha::Database->new()->schema(); |
119 |
my @class_sources = $schema->resultset('ClassSource')->search(); |
120 |
my $pref_class = C4::Context->preference("DefaultClassificationSource"); |
121 |
|
122 |
|
117 |
$template->param( |
123 |
$template->param( |
118 |
authorised_values => \@authorised_value_list, |
124 |
authorised_values => \@authorised_value_list, |
119 |
today => dt_from_string, |
125 |
today => dt_from_string, |
Lines 126-131
$template->param(
Link Here
|
126 |
datelastseen => $datelastseen, |
132 |
datelastseen => $datelastseen, |
127 |
compareinv2barcd => $compareinv2barcd, |
133 |
compareinv2barcd => $compareinv2barcd, |
128 |
uploadedbarcodesflag => $uploadbarcodes ? 1 : 0, |
134 |
uploadedbarcodesflag => $uploadbarcodes ? 1 : 0, |
|
|
135 |
class_sources => \@class_sources, |
136 |
pref_class => $pref_class |
129 |
); |
137 |
); |
130 |
|
138 |
|
131 |
# Walk through uploaded barcodes, report errors, mark as seen, check in |
139 |
# Walk through uploaded barcodes, report errors, mark as seen, check in |
Lines 225-230
if ( $op && ( !$uploadbarcodes || $compareinv2barcd )) {
Link Here
|
225 |
( $inventorylist ) = GetItemsForInventory({ |
233 |
( $inventorylist ) = GetItemsForInventory({ |
226 |
minlocation => $minlocation, |
234 |
minlocation => $minlocation, |
227 |
maxlocation => $maxlocation, |
235 |
maxlocation => $maxlocation, |
|
|
236 |
class_source => $class_source, |
228 |
location => $location, |
237 |
location => $location, |
229 |
ignoreissued => $ignoreissued, |
238 |
ignoreissued => $ignoreissued, |
230 |
datelastseen => $datelastseen, |
239 |
datelastseen => $datelastseen, |
Lines 239-244
if( @scanned_items ) {
Link Here
|
239 |
( $rightplacelist ) = GetItemsForInventory({ |
248 |
( $rightplacelist ) = GetItemsForInventory({ |
240 |
minlocation => $minlocation, |
249 |
minlocation => $minlocation, |
241 |
maxlocation => $maxlocation, |
250 |
maxlocation => $maxlocation, |
|
|
251 |
class_source => $class_source, |
242 |
location => $location, |
252 |
location => $location, |
243 |
ignoreissued => undef, |
253 |
ignoreissued => undef, |
244 |
datelastseen => undef, |
254 |
datelastseen => undef, |
245 |
- |
|
|