Lines 63-73
Return the checkout linked to this account line if exists
Link Here
|
63 |
sub checkout { |
63 |
sub checkout { |
64 |
my ( $self ) = @_; |
64 |
my ( $self ) = @_; |
65 |
return unless $self->issue_id; |
65 |
return unless $self->issue_id; |
66 |
my $issue_rs = $self->_result->issue; |
66 |
my $checkout_rs = $self->_result->checkout; |
67 |
return Koha::Checkout->_new_from_dbic( $issue_rs ) if $issue_rs; |
67 |
return Koha::Checkout->_new_from_dbic( $checkout_rs ) if $checkout_rs; |
68 |
|
68 |
|
69 |
my $old_issue_rs = $self->_result->old_issue; |
69 |
my $old_checkout_rs = $self->_result->old_checkout; |
70 |
return Koha::Old::Checkout->_new_from_dbic( $old_issue_rs ) if $old_issue_rs; |
70 |
return Koha::Old::Checkout->_new_from_dbic( $old_checkout_rs ) if $old_checkout_rs; |
71 |
return; |
71 |
return; |
72 |
} |
72 |
} |
73 |
|
73 |
|
74 |
- |
|
|