|
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::ClassificationSources; |
| 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::ClassificationSources->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 |
- |
|
|