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 114-119
for my $authvfield (@$statuses) {
Link Here
|
114 |
} |
116 |
} |
115 |
} |
117 |
} |
116 |
|
118 |
|
|
|
119 |
my @class_sources = Koha::ClassSources->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 222-227
if ( $op && ( !$uploadbarcodes || $compareinv2barcd )) {
Link Here
|
222 |
( $inventorylist ) = GetItemsForInventory({ |
230 |
( $inventorylist ) = GetItemsForInventory({ |
223 |
minlocation => $minlocation, |
231 |
minlocation => $minlocation, |
224 |
maxlocation => $maxlocation, |
232 |
maxlocation => $maxlocation, |
|
|
233 |
class_source => $class_source, |
225 |
location => $location, |
234 |
location => $location, |
226 |
ignoreissued => $ignoreissued, |
235 |
ignoreissued => $ignoreissued, |
227 |
datelastseen => $datelastseen, |
236 |
datelastseen => $datelastseen, |
Lines 236-241
if( @scanned_items ) {
Link Here
|
236 |
( $rightplacelist ) = GetItemsForInventory({ |
245 |
( $rightplacelist ) = GetItemsForInventory({ |
237 |
minlocation => $minlocation, |
246 |
minlocation => $minlocation, |
238 |
maxlocation => $maxlocation, |
247 |
maxlocation => $maxlocation, |
|
|
248 |
class_source => $class_source, |
239 |
location => $location, |
249 |
location => $location, |
240 |
ignoreissued => undef, |
250 |
ignoreissued => undef, |
241 |
datelastseen => undef, |
251 |
datelastseen => undef, |
242 |
- |
|
|