Lines 39-48
use Koha::Biblios;
Link Here
|
39 |
use Koha::DateUtils; |
39 |
use Koha::DateUtils; |
40 |
use Koha::AuthorisedValues; |
40 |
use Koha::AuthorisedValues; |
41 |
use Koha::BiblioFrameworks; |
41 |
use Koha::BiblioFrameworks; |
|
|
42 |
use Koha::ClassSources; |
42 |
use List::MoreUtils qw( none ); |
43 |
use List::MoreUtils qw( none ); |
43 |
|
44 |
|
44 |
my $minlocation=$input->param('minlocation') || ''; |
45 |
my $minlocation=$input->param('minlocation') || ''; |
45 |
my $maxlocation=$input->param('maxlocation'); |
46 |
my $maxlocation=$input->param('maxlocation'); |
|
|
47 |
my $class_source=$input->param('class_source'); |
46 |
$maxlocation=$minlocation.'Z' unless ( $maxlocation || ! $minlocation ); |
48 |
$maxlocation=$minlocation.'Z' unless ( $maxlocation || ! $minlocation ); |
47 |
my $location=$input->param('location') || ''; |
49 |
my $location=$input->param('location') || ''; |
48 |
my $ignoreissued=$input->param('ignoreissued'); |
50 |
my $ignoreissued=$input->param('ignoreissued'); |
Lines 116-121
for my $authvfield (@$statuses) {
Link Here
|
116 |
} |
118 |
} |
117 |
} |
119 |
} |
118 |
|
120 |
|
|
|
121 |
my @class_sources = Koha::ClassSources->search(); |
122 |
my $pref_class = C4::Context->preference("DefaultClassificationSource"); |
123 |
|
124 |
|
119 |
$template->param( |
125 |
$template->param( |
120 |
authorised_values => \@authorised_value_list, |
126 |
authorised_values => \@authorised_value_list, |
121 |
today => dt_from_string, |
127 |
today => dt_from_string, |
Lines 129-134
$template->param(
Link Here
|
129 |
compareinv2barcd => $compareinv2barcd, |
135 |
compareinv2barcd => $compareinv2barcd, |
130 |
uploadedbarcodesflag => $uploadbarcodes ? 1 : 0, |
136 |
uploadedbarcodesflag => $uploadbarcodes ? 1 : 0, |
131 |
ignore_waiting_holds => $ignore_waiting_holds, |
137 |
ignore_waiting_holds => $ignore_waiting_holds, |
|
|
138 |
class_sources => \@class_sources, |
139 |
pref_class => $pref_class |
132 |
); |
140 |
); |
133 |
|
141 |
|
134 |
# Walk through uploaded barcodes, report errors, mark as seen, check in |
142 |
# 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 240-245
if( @scanned_items ) {
Link Here
|
240 |
( $rightplacelist ) = GetItemsForInventory({ |
249 |
( $rightplacelist ) = GetItemsForInventory({ |
241 |
minlocation => $minlocation, |
250 |
minlocation => $minlocation, |
242 |
maxlocation => $maxlocation, |
251 |
maxlocation => $maxlocation, |
|
|
252 |
class_source => $class_source, |
243 |
location => $location, |
253 |
location => $location, |
244 |
ignoreissued => undef, |
254 |
ignoreissued => undef, |
245 |
datelastseen => undef, |
255 |
datelastseen => undef, |
246 |
- |
|
|