|
Lines 52-57
my $branchcode = $input->param('branchcode') || '';
Link Here
|
| 52 |
my $branch = $input->param('branch'); |
52 |
my $branch = $input->param('branch'); |
| 53 |
my $op = $input->param('op'); |
53 |
my $op = $input->param('op'); |
| 54 |
my $compareinv2barcd = $input->param('compareinv2barcd'); |
54 |
my $compareinv2barcd = $input->param('compareinv2barcd'); |
|
|
55 |
my $ccode = $input->param('ccode'); |
| 55 |
|
56 |
|
| 56 |
my ( $template, $borrowernumber, $cookie ) = get_template_and_user( |
57 |
my ( $template, $borrowernumber, $cookie ) = get_template_and_user( |
| 57 |
{ template_name => "tools/inventory.tt", |
58 |
{ template_name => "tools/inventory.tt", |
|
Lines 92-97
for my $fwk (keys %$frameworks){
Link Here
|
| 92 |
} |
93 |
} |
| 93 |
} |
94 |
} |
| 94 |
|
95 |
|
|
|
96 |
my $collection_authorised_value = C4::Koha::GetAuthValCode("items.ccode"); |
| 97 |
my $collections = C4::Koha::GetAuthorisedValues($collection_authorised_value) // []; |
| 98 |
$template->param( ccode_list => $collections ); |
| 99 |
|
| 95 |
my $statuses = []; |
100 |
my $statuses = []; |
| 96 |
for my $statfield (qw/items.notforloan items.itemlost items.withdrawn items.damaged/){ |
101 |
for my $statfield (qw/items.notforloan items.itemlost items.withdrawn items.damaged/){ |
| 97 |
my $hash = {}; |
102 |
my $hash = {}; |
|
Lines 138-144
$template->param(
Link Here
|
| 138 |
branch => $branch, |
143 |
branch => $branch, |
| 139 |
datelastseen => $datelastseen, |
144 |
datelastseen => $datelastseen, |
| 140 |
compareinv2barcd => $compareinv2barcd, |
145 |
compareinv2barcd => $compareinv2barcd, |
| 141 |
notforloanlist => $notforloanlist |
146 |
notforloanlist => $notforloanlist, |
|
|
147 |
ccode => $ccode, |
| 142 |
); |
148 |
); |
| 143 |
|
149 |
|
| 144 |
my @notforloans; |
150 |
my @notforloans; |
|
Lines 253-261
if ( $markseen or $op ) {
Link Here
|
| 253 |
size => undef, |
259 |
size => undef, |
| 254 |
statushash => $staton, |
260 |
statushash => $staton, |
| 255 |
interface => 'staff', |
261 |
interface => 'staff', |
|
|
262 |
ccode => $ccode, |
| 256 |
} ); |
263 |
} ); |
| 257 |
|
264 |
|
| 258 |
# For the items that may be marked as "wrong place", we only check the location (callnumbers, location and branch) |
265 |
# For the items that may be marked as "wrong place", we only check the location (callnumbers, location, ccode and branch) |
| 259 |
($wrongplacelist, $totalrecords) = GetItemsForInventory( { |
266 |
($wrongplacelist, $totalrecords) = GetItemsForInventory( { |
| 260 |
minlocation => $minlocation, |
267 |
minlocation => $minlocation, |
| 261 |
maxlocation => $maxlocation, |
268 |
maxlocation => $maxlocation, |
|
Lines 269-274
if ( $markseen or $op ) {
Link Here
|
| 269 |
size => undef, |
276 |
size => undef, |
| 270 |
statushash => undef, |
277 |
statushash => undef, |
| 271 |
interface => 'staff', |
278 |
interface => 'staff', |
|
|
279 |
ccode => $ccode, |
| 272 |
} ); |
280 |
} ); |
| 273 |
|
281 |
|
| 274 |
} |
282 |
} |
|
Lines 382-388
if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){
Link Here
|
| 382 |
my @translated_keys; |
390 |
my @translated_keys; |
| 383 |
for my $key (qw / biblioitems.title biblio.author |
391 |
for my $key (qw / biblioitems.title biblio.author |
| 384 |
items.barcode items.itemnumber |
392 |
items.barcode items.itemnumber |
| 385 |
items.homebranch items.location |
393 |
items.homebranch items.location items.ccode |
| 386 |
items.itemcallnumber items.notforloan |
394 |
items.itemcallnumber items.notforloan |
| 387 |
items.itemlost items.damaged |
395 |
items.itemlost items.damaged |
| 388 |
items.withdrawn items.stocknumber |
396 |
items.withdrawn items.stocknumber |
|
Lines 394-400
if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){
Link Here
|
| 394 |
$csv->combine(@translated_keys); |
402 |
$csv->combine(@translated_keys); |
| 395 |
print $csv->string, "\n"; |
403 |
print $csv->string, "\n"; |
| 396 |
|
404 |
|
| 397 |
my @keys = qw / title author barcode itemnumber homebranch location itemcallnumber notforloan lost damaged withdrawn stocknumber /; |
405 |
my @keys = qw / title author barcode itemnumber homebranch location ccode itemcallnumber notforloan lost damaged withdrawn stocknumber /; |
| 398 |
for my $item ( @results ) { |
406 |
for my $item ( @results ) { |
| 399 |
my @line; |
407 |
my @line; |
| 400 |
for my $key (@keys) { |
408 |
for my $key (@keys) { |
| 401 |
- |
|
|