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

(-)a/members/readingrec.pl (-5 / +1 lines)
Lines 31-38 use C4::Members; Link Here
31
use C4::Branch qw(GetBranches);
31
use C4::Branch qw(GetBranches);
32
use List::MoreUtils qw/any uniq/;
32
use List::MoreUtils qw/any uniq/;
33
use Koha::DateUtils;
33
use Koha::DateUtils;
34
35
use C4::Dates qw/format_date/;
36
use C4::Members::Attributes qw(GetBorrowerAttributes);
34
use C4::Members::Attributes qw(GetBorrowerAttributes);
37
35
38
my $input = CGI->new;
36
my $input = CGI->new;
Lines 80-87 foreach my $issue ( @{$issues} ) { Link Here
80
78
81
#   barcode export
79
#   barcode export
82
if ( $op eq 'export_barcodes' ) {
80
if ( $op eq 'export_barcodes' ) {
83
    my $today = C4::Dates->new();
81
    my $today = output_pref({ dt=>DateTime->now(), dateformat => 'iso' }); 
84
    $today = $today->output('iso');
85
    my @barcodes =
82
    my @barcodes =
86
      map { $_->{barcode} } grep { $_->{returndate} =~ m/^$today/o } @{$issues};
83
      map { $_->{barcode} } grep { $_->{returndate} =~ m/^$today/o } @{$issues};
87
    my $borrowercardnumber =
84
    my $borrowercardnumber =
88
- 

Return to bug 13813