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