Koha/Acquisition/Bookseller.pm

   1 package Koha::Acquisition::Bookseller;
   2
   3 use Modern::Perl;
   4
   5 use Koha::Database;
   6 use Koha::DateUtils qw( dt_from_string output_pref );
   7
   8 use Carp qw( croak );
   9
  10 use base qw( Class::Accessor );
  11
  12 use C4::Bookseller::Contact;
  13
  14 sub fetch {
  15     my ( $class, $params ) = @_;
  16     my $id = $params->{id};
  17     return unless $id;
  18     my $schema = Koha::Database->new->schema;
  19
  20     my $bookseller =
  21       $schema->resultset('Aqbookseller')->find( { id => $id },
  22         { result_class => 'DBIx::Class::ResultClass::HashRefInflator' } );
  23
  24     return unless $bookseller;
  25
  26     my $self = $class->new( $bookseller );
  27     $self->contacts; # TODO: This should be generated on demand.
  28     return $self;
  29 }
  30
  31 sub search {
  32     my ( $class, $params ) = @_;
  33
  34     my $schema = Koha::Database->new->schema;
  35
  36     my $search_params;
  37     while ( my ( $field, $value ) = each %$params ) {
  38         if ( $field eq 'name' ) {
  39             # Use "like" if search on name
  40             $search_params->{name} = { -like => "%$value%" };
  41         } else {
  42             $search_params->{$field} = $value;
  43         }
  44     }
  45     my $rs = $schema->resultset('Aqbookseller')->search(
  46         $search_params,
  47         { order_by => 'name' }
  48     );
  49
  50     my @booksellers;
  51     while ( my $b = $rs->next ) {
  52         my $t = Koha::Acquisition::Bookseller->fetch({ id => $b->id });
  53         push @booksellers, $t;
  54     }
  55     return @booksellers;
  56 }
  57
  58 sub basket_count {
  59     my ( $self ) = @_;
  60     my $schema = Koha::Database->new->schema;
  61
  62     return $schema->resultset('Aqbasket')->count( { booksellerid => $self->{id} });
  63 }
  64
  65 sub subscription_count {
  66     my ( $self ) = @_;
  67
  68     my $schema = Koha::Database->new->schema;
  69
  70     return $schema->resultset('Subscription')->count( { aqbooksellerid => $self->{id} });
  71 }
  72
  73 sub contacts {
  74     my ( $self ) = @_;
  75
  76     return $self->{contacts} if $self->{contacts};
  77     $self->{contacts} = C4::Bookseller::Contact->get_from_bookseller($self->{id});
  78     return $self->{contacts};
  79 }
  80
  81 sub insert {
  82     my ($self) = @_;
  83
  84     # if these parameters are missing, we can't continue
  85     for my $key (qw( id )) {
  86         croak "Cannot insert bookseller: Mandatory parameter $key is missing"
  87           unless $self->{$key};
  88     }
  89
  90     $self->{quantityreceived} ||= 0;
  91     $self->{entrydate} ||=
  92       output_pref( { dt => dt_from_string, dateformat => 'iso' } );
  93
  94     my $schema  = Koha::Database->new->schema;
  95     my @columns = $schema->source('Aqorder')->columns;
  96     my $rs = $schema->resultset('Aqorder')->create(
  97         {
  98             map {
  99                 exists $self->{$_} ? ( $_ => $self->{$_} ) : ()
 100             } @columns
 101         }
 102     );
 103     $self->{ordernumber} = $rs->id;
 104
 105     unless ( $self->{parent_ordernumber} ) {
 106         $rs->update( { parent_ordernumber => $self->{ordernumber} } );
 107     }
 108
 109     return $self;
 110 }
 111
 112 # TODO Move code from ModBookseller
 113 sub update {
 114     die "not implemented yet";
 115 }
 116
 117 # TODO Move code from DelBookseller
 118 sub delete {
 119     die "not implemented yet";
 120 }
 121
 122 1;