Lines 21-29
use Modern::Perl;
Link Here
|
21 |
|
21 |
|
22 |
use Koha::Database; |
22 |
use Koha::Database; |
23 |
use Koha::DateUtils qw( dt_from_string ); |
23 |
use Koha::DateUtils qw( dt_from_string ); |
24 |
use Koha::Patron; |
24 |
use Koha::Biblios; |
25 |
use Koha::Biblio; |
25 |
use Koha::Items; |
26 |
use Koha::Item; |
26 |
use Koha::Libraries; |
|
|
27 |
use Koha::Patrons; |
27 |
|
28 |
|
28 |
use base qw(Koha::Object); |
29 |
use base qw(Koha::Object); |
29 |
|
30 |
|
Lines 33-39
Koha::Recall - Koha Recall Object class
Link Here
|
33 |
|
34 |
|
34 |
=head1 API |
35 |
=head1 API |
35 |
|
36 |
|
36 |
=head2 Internal methods |
37 |
=head2 Class methods |
37 |
|
38 |
|
38 |
=cut |
39 |
=cut |
39 |
|
40 |
|
Lines 92-99
Returns the related Koha::Library object for this recall.
Link Here
|
92 |
|
93 |
|
93 |
sub library { |
94 |
sub library { |
94 |
my ( $self ) = @_; |
95 |
my ( $self ) = @_; |
95 |
$self->{_library} = Koha::Libraries->find( $self->branchcode ); |
96 |
my $library_rs = $self->_result->branch; |
96 |
return $self->{_library}; |
97 |
return unless $library_rs; |
|
|
98 |
return Koha::Library->_new_from_dbic( $library_rs ); |
97 |
} |
99 |
} |
98 |
|
100 |
|
99 |
=head3 checkout |
101 |
=head3 checkout |
Lines 459-464
sub set_fulfilled {
Link Here
|
459 |
return $self; |
461 |
return $self; |
460 |
} |
462 |
} |
461 |
|
463 |
|
|
|
464 |
=head2 Internal methods |
465 |
|
462 |
=head3 _type |
466 |
=head3 _type |
463 |
|
467 |
|
464 |
=cut |
468 |
=cut |
465 |
- |
|
|