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