Lines 443-448
if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){
Link Here
|
443 |
push @line, "change item status"; |
443 |
push @line, "change item status"; |
444 |
} elsif ($item->{problem} eq 'not_scanned' ) { |
444 |
} elsif ($item->{problem} eq 'not_scanned' ) { |
445 |
push @line, "item not scanned"; |
445 |
push @line, "item not scanned"; |
|
|
446 |
} elsif ($item->{problem} eq 'out_of_order' ) { |
447 |
push @line, "possibly out of order"; |
446 |
} |
448 |
} |
447 |
} |
449 |
} |
448 |
$csv->combine(@line); |
450 |
$csv->combine(@line); |
449 |
- |
|
|