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