Lines 84-90
foreach my $issue (@{$issues}){
Link Here
|
84 |
$line{barcode} = $issue->{'barcode'}; |
84 |
$line{barcode} = $issue->{'barcode'}; |
85 |
$line{volumeddesc} = $issue->{'volumeddesc'}; |
85 |
$line{volumeddesc} = $issue->{'volumeddesc'}; |
86 |
push(@loop_reading,\%line); |
86 |
push(@loop_reading,\%line); |
87 |
if (($input->param('op') eq 'export_barcodes') and ($today eq $issue->{'returndate'})) { |
87 |
if ( ($input->param('op') eq 'export_barcodes') |
|
|
88 |
and ($today eq C4::Dates->new( $issue->{'returndate'}, 'iso' )->output("iso")) ) { |
88 |
push( @barcodes, $issue->{'barcode'} ); |
89 |
push( @barcodes, $issue->{'barcode'} ); |
89 |
} |
90 |
} |
90 |
} |
91 |
} |
91 |
- |
|
|