Koha/Acquisition/Basket.pm

   1 package Koha::Acquisition::Basket;
   2
   3 use Modern::Perl;
   4
   5 use Koha::Database;
   6
   7 use base qw( Koha::Object );
   8
   9 sub bookseller {
  10     my ($self) = @_;
  11     my $bookseller_rs = $self->_result->booksellerid;
  12     return Koha::Acquisition::Bookseller->_new_from_dbic( $bookseller_rs );
  13 }
  14
  15 sub _type {
  16     return 'Aqbasket';
  17 }
  18
  19 1;