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', dateonly => 1 }); |
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 |
- |
|
|