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

(-)a/Koha/Biblio.pm (-1 / +1 lines)
Lines 1164-1170 sub get_marc_host { Link Here
1164
1164
1165
=head3 recalls
1165
=head3 recalls
1166
1166
1167
    my @recalls = $biblio->recalls;
1167
    my $recalls = $biblio->recalls;
1168
1168
1169
Return recalls linked to this biblio
1169
Return recalls linked to this biblio
1170
1170
(-)a/Koha/Recall.pm (-7 / +10 lines)
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
- 

Return to bug 19532