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