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

(-)a/Koha/Acquisition/Basket.pm (-2 / +16 lines)
Lines 21-26 use Modern::Perl; Link Here
21
21
22
use Koha::Database;
22
use Koha::Database;
23
use Koha::Acquisition::BasketGroups;
23
use Koha::Acquisition::BasketGroups;
24
use Koha::Patrons;
24
25
25
use base qw( Koha::Object Koha::Object::Mixin::AdditionalFields );
26
use base qw( Koha::Object Koha::Object::Mixin::AdditionalFields );
26
27
Lines 30-36 Koha::Acquisition::Basket - Koha Basket Object class Link Here
30
31
31
=head1 API
32
=head1 API
32
33
33
=head2 Class Methods
34
=head2 Class methods
34
35
35
=cut
36
=cut
36
37
Lines 46-51 sub bookseller { Link Here
46
    return Koha::Acquisition::Bookseller->_new_from_dbic( $bookseller_rs );
47
    return Koha::Acquisition::Bookseller->_new_from_dbic( $bookseller_rs );
47
}
48
}
48
49
50
=head3 creator
51
52
    my $creator = $basket->creator;
53
54
Returns the I<Koha::Patron> for the basket creator.
55
56
=cut
57
58
sub creator {
59
    my ($self) = @_;
60
    return Koha::Patrons->find( $self->authorisedby )
61
        if $self->authorisedby;
62
}
63
49
=head3 basket_group
64
=head3 basket_group
50
65
51
Returns the basket group associated to this basket
66
Returns the basket group associated to this basket
52
- 

Return to bug 24464