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