View | Details | Raw Unified | Return to bug 27851
Collapse All | Expand All

(-)a/members/printslip.pl (-15 / +3 lines)
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
- 

Return to bug 27851