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