View | Details | Raw Unified | Return to bug 8154
Collapse All | Expand All

(-)a/members/readingrec.pl (-2 / +2 lines)
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
- 

Return to bug 8154