|
Lines 22-27
use Modern::Perl;
Link Here
|
| 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::Acquisition::BasketGroups; |
24 |
use Koha::Acquisition::BasketGroups; |
|
|
25 |
use Koha::Acquisition::Booksellers; |
| 25 |
use Koha::Acquisition::Orders; |
26 |
use Koha::Acquisition::Orders; |
| 26 |
use Koha::Exceptions::Acquisition::Basket; |
27 |
use Koha::Exceptions::Acquisition::Basket; |
| 27 |
use Koha::Patrons; |
28 |
use Koha::Patrons; |
|
Lines 51-56
sub bookseller {
Link Here
|
| 51 |
return Koha::Acquisition::Bookseller->_new_from_dbic($bookseller_rs); |
52 |
return Koha::Acquisition::Bookseller->_new_from_dbic($bookseller_rs); |
| 52 |
} |
53 |
} |
| 53 |
|
54 |
|
|
|
55 |
=head3 vendor |
| 56 |
|
| 57 |
my $vendor = $basket->vendor; |
| 58 |
|
| 59 |
Returns the related I<Koha::Acquisition::Bookseller> object. |
| 60 |
|
| 61 |
=cut |
| 62 |
|
| 63 |
sub vendor { |
| 64 |
my ($self) = @_; |
| 65 |
my $vendor_rs = $self->_result->vendor; |
| 66 |
return Koha::Acquisition::Bookseller->_new_from_dbic($vendor_rs); |
| 67 |
} |
| 68 |
|
| 54 |
=head3 creator |
69 |
=head3 creator |
| 55 |
|
70 |
|
| 56 |
my $creator = $basket->creator; |
71 |
my $creator = $basket->creator; |