|
Lines 349-355
if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){
Link Here
|
| 349 |
$csv->combine(@translated_keys); |
349 |
$csv->combine(@translated_keys); |
| 350 |
print $csv->string, "\n"; |
350 |
print $csv->string, "\n"; |
| 351 |
|
351 |
|
| 352 |
my @keys = qw/ title author barcode itemnumber homebranch location itemcallnumber notforloan lost damaged withdrawn stocknumber /; |
352 |
my @keys = qw/ title author barcode itemnumber homebranch location itemcallnumber notforloan itemlost damaged withdrawn stocknumber /; |
| 353 |
for my $item ( @$loop ) { |
353 |
for my $item ( @$loop ) { |
| 354 |
my @line; |
354 |
my @line; |
| 355 |
for my $key (@keys) { |
355 |
for my $key (@keys) { |
| 356 |
- |
|
|