-This module is just a wrapper for C4::SQLHelper functions, so take a look at
-SQLHelper centralised documentation to know how to use the following subs.
+=cut
+
+
+=head2 GetContracts
+
+$contractlist = GetContracts({
+ booksellerid => $booksellerid,
+ activeonly => $activeonly
+});
+
+Looks up the contracts that belong to a bookseller
+
+Returns a list of contracts
+
+=over
+
+=item C<$booksellerid> is the "id" field in the "aqbooksellers" table.
+
+=item C<$activeonly> if exists get only contracts that are still active.
+
+=back
+
+=cut
+
+sub GetContracts {
+ my ($filters) = @_;
+ if( $filters->{activeonly} ) {
+ $filters->{contractenddate} = {'>=' => \'now()'};
+ delete $filters->{activeonly};
+ }
+
+ my $rs = Koha::Database->new()->schema->resultset('Aqcontract');
+ $rs = $rs->search($filters);
+ $rs->result_class('DBIx::Class::ResultClass::HashRefInflator');
+ return [ $rs->all ];
+}
+
+=head2 GetContract
+
+$contract = GetContract( { contractnumber => $contractnumber } );
+
+Looks up the contract that has PRIMKEY (contractnumber) value $contractID
+
+Returns a contract