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

(-)a/C4/Circulation.pm (-1 / +1 lines)
Lines 2644-2650 sub MarkIssueReturned { Link Here
2644
2644
2645
C<$patron> patron object
2645
C<$patron> patron object
2646
2646
2647
C<$item> patron object
2647
C<$item> item object
2648
2648
2649
C<$datedue> date due DateTime object
2649
C<$datedue> date due DateTime object
2650
2650
(-)a/t/db_dependent/Koha/Object.t (-3 / +1 lines)
Lines 20-26 use Modern::Perl; Link Here
20
use Test::More tests => 21;
20
use Test::More tests => 21;
21
use Test::Exception;
21
use Test::Exception;
22
use Test::Warn;
22
use Test::Warn;
23
use DateTime;
24
23
25
use C4::Context;
24
use C4::Context;
26
use C4::Circulation qw( AddIssue );
25
use C4::Circulation qw( AddIssue );
Lines 988-994 subtest 'unblessed_all_relateds' => sub { Link Here
988
        }
987
        }
989
    );
988
    );
990
989
991
    my $issue = AddIssue( $patron, $item->barcode, DateTime->now->subtract( days => 1 ) );
990
    my $issue = AddIssue( $patron, $item->barcode, dt_from_string()->subtract( days => 1 ) );
992
    my $overdues = Koha::Patrons->find( $patron->id )->overdues; # Koha::Patron->overdues prefetches
991
    my $overdues = Koha::Patrons->find( $patron->id )->overdues; # Koha::Patron->overdues prefetches
993
    my $overdue = $overdues->next->unblessed_all_relateds;
992
    my $overdue = $overdues->next->unblessed_all_relateds;
994
    is( $overdue->{issue_id}, $issue->issue_id, 'unblessed_all_relateds has field from the original table (issues)' );
993
    is( $overdue->{issue_id}, $issue->issue_id, 'unblessed_all_relateds has field from the original table (issues)' );
995
- 

Return to bug 32496