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 77-84 my $branches = GetBranches(); Link Here
77
75
78
#   barcode export
76
#   barcode export
79
if ( $op eq 'export_barcodes' ) {
77
if ( $op eq 'export_barcodes' ) {
80
    my $today = C4::Dates->new();
78
    my $today = output_pref({ dt => dt_from_string, dateformat => 'iso' }); 
81
    $today = $today->output('iso');
82
    my @barcodes =
79
    my @barcodes =
83
      map { $_->{barcode} } grep { $_->{returndate} =~ m/^$today/o } @{$issues};
80
      map { $_->{barcode} } grep { $_->{returndate} =~ m/^$today/o } @{$issues};
84
    my $borrowercardnumber =
81
    my $borrowercardnumber =
85
- 

Return to bug 13813