Koha/Acquisition/Booksellers.pm

   1 package Koha::Acquisition::Booksellers;
   2
   3 use Modern::Perl;
   4
   5 use Carp;
   6
   7 use Koha::Database;
   8
   9 use base qw( Koha::Objects );
  10
  11 use Koha::Acquisition::Bookseller;
  12
  13 sub search {
  14     my ( $self, $params, $attributes ) = @_;
  15
  16
  17     while ( my ( $field, $value ) = each %$params ) {
  18         if ( $field eq 'name' ) {
  19             # Use "like" if search on name
  20             $params->{name} = { -like => "%$value%" };
  21         }
  22     }
  23
  24     $attributes->{order_by} ||= { -asc => 'name' };
  25
  26     return $self->SUPER::search( $params, $attributes );
  27 }
  28
  29 sub _type {
  30     return 'Aqbookseller';
  31 }
  32
  33 sub object_class {
  34     return 'Koha::Acquisition::Bookseller';
  35 }
  36
  37 1;