|
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 |
- |
|
|