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