1 package Koha::Acquisition::Bookseller;
6 use Koha::DateUtils qw( dt_from_string output_pref );
10 use base qw( Class::Accessor );
12 use C4::Bookseller::Contact;
15 my ( $class, $params ) = @_;
16 my $id = $params->{id};
18 my $schema = Koha::Database->new->schema;
21 $schema->resultset('Aqbookseller')->find( { id => $id },
22 { result_class => 'DBIx::Class::ResultClass::HashRefInflator' } );
24 return unless $bookseller;
26 my $self = $class->new( $bookseller );
27 $self->contacts; # TODO: This should be generated on demand.
32 my ( $class, $params ) = @_;
34 croak "Cannot search on other fields than aqbooksellers.name" if $params and grep { $_ !~ /^name$/ } keys %$params;
36 my $schema = Koha::Database->new->schema;
39 while ( my ( $field, $value ) = each %$params ) {
40 if ( $field eq 'name' ) {
41 # Use "like" if search on name
42 $search_params->{name} = { -like => "%$value%" };
44 $search_params->{$field} = $value;
47 my $rs = $schema->resultset('Aqbookseller')->search(
49 { order_by => 'name' }
53 while ( my $b = $rs->next ) {
54 my $t = Koha::Acquisition::Bookseller->fetch({ id => $b->id });
55 push @booksellers, $t;
62 my $schema = Koha::Database->new->schema;
64 return $schema->resultset('Aqbasket')->count( { booksellerid => $self->{id} });
67 sub subscription_count {
70 my $schema = Koha::Database->new->schema;
72 return $schema->resultset('Subscription')->count( { aqbooksellerid => $self->{id} });
78 return $self->{contacts} if $self->{contacts};
79 $self->{contacts} = C4::Bookseller::Contact->get_from_bookseller($self->{id});
80 return $self->{contacts};
86 # if these parameters are missing, we can't continue
87 for my $key (qw( id )) {
88 croak "Cannot insert bookseller: Mandatory parameter $key is missing"
92 $self->{quantityreceived} ||= 0;
93 $self->{entrydate} ||=
94 output_pref( { dt => dt_from_string, dateformat => 'iso' } );
96 my $schema = Koha::Database->new->schema;
97 my @columns = $schema->source('Aqorder')->columns;
98 my $rs = $schema->resultset('Aqorder')->create(
101 exists $self->{$_} ? ( $_ => $self->{$_} ) : ()
105 $self->{ordernumber} = $rs->id;
107 unless ( $self->{parent_ordernumber} ) {
108 $rs->update( { parent_ordernumber => $self->{ordernumber} } );
114 # TODO Move code from ModBookseller
116 die "not implemented yet";
119 # TODO Move code from DelBookseller
121 die "not implemented yet";