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

(-)a/Koha/Checkout.pm (+1 lines)
Lines 89-94 Return the patron for who the checkout has been done Link Here
89
sub patron {
89
sub patron {
90
    my ( $self ) = @_;
90
    my ( $self ) = @_;
91
    my $patron_rs = $self->_result->borrower;
91
    my $patron_rs = $self->_result->borrower;
92
    return unless $patron_rs;
92
    return Koha::Patron->_new_from_dbic( $patron_rs );
93
    return Koha::Patron->_new_from_dbic( $patron_rs );
93
}
94
}
94
95
(-)a/Koha/Old/Checkout.pm (-1 / +2 lines)
Lines 20-26 use Modern::Perl; Link Here
20
use Koha::Database;
20
use Koha::Database;
21
use Koha::DateUtils qw(dt_from_string);
21
use Koha::DateUtils qw(dt_from_string);
22
22
23
use base qw(Koha::Checkout);
23
use base qw(Koha::Object);
24
24
25
=head1 NAME
25
=head1 NAME
26
26
Lines 55-60 Return the patron for who the checkout has been done Link Here
55
sub patron {
55
sub patron {
56
    my ( $self ) = @_;
56
    my ( $self ) = @_;
57
    my $patron_rs = $self->_result->borrower;
57
    my $patron_rs = $self->_result->borrower;
58
    return unless $patron_rs;
58
    return Koha::Patron->_new_from_dbic( $patron_rs );
59
    return Koha::Patron->_new_from_dbic( $patron_rs );
59
}
60
}
60
61
(-)a/Koha/Old/Checkouts.pm (-2 / +1 lines)
Lines 20-26 use Modern::Perl; Link Here
20
use Koha::Database;
20
use Koha::Database;
21
use Koha::Old::Checkout;
21
use Koha::Old::Checkout;
22
22
23
use base qw(Koha::Checkouts);
23
use base qw(Koha::Objects);
24
24
25
sub _type {
25
sub _type {
26
    return 'OldIssue';
26
    return 'OldIssue';
27
- 

Return to bug 15985