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