Lines 84-105
if ( $print eq 'checkinslip' ) {
Link Here
|
84 |
my $checkinslip_branch = $session->param('branch') ? $session->param('branch') : $branch; |
84 |
my $checkinslip_branch = $session->param('branch') ? $session->param('branch') : $branch; |
85 |
|
85 |
|
86 |
# get today's checkins |
86 |
# get today's checkins |
87 |
my $dtf = Koha::Database->new->schema->storage->datetime_parser; |
87 |
my @itemnumbers = $patron->old_checkouts->search( { branchcode => $checkinslip_branch } ) |
88 |
my $today = dt_from_string; |
88 |
->filter_by_todays_checkins->get_column('itemnumber'); |
89 |
my $today_start = $today->clone->set( hour => 0, minute => 0, second => 0 ); |
|
|
90 |
my $today_end = $today->clone->set( hour => 23, minute => 59, second => 0 ); |
91 |
$today_start = $dtf->format_datetime( $today_start ); |
92 |
$today_end = $dtf->format_datetime( $today_end ); |
93 |
my @todays_checkins = $patron->old_checkouts->search({ |
94 |
returndate => { |
95 |
'>=' => $today_start, |
96 |
'<=' => $today_end, |
97 |
}, |
98 |
branchcode => $checkinslip_branch, |
99 |
}); |
100 |
|
89 |
|
101 |
my %loops = ( |
90 |
my %loops = ( |
102 |
old_issues => [ map { $_->itemnumber } @todays_checkins ], |
91 |
old_issues => \@itemnumbers, |
103 |
); |
92 |
); |
104 |
|
93 |
|
105 |
my $letter = C4::Letters::GetPreparedLetter( |
94 |
my $letter = C4::Letters::GetPreparedLetter( |
106 |
- |
|
|