use parent qw(SL::DB::Helper::Manager);
+use constant PRICE_NEW => 0;
+use constant PRICE_REDUCED_MASTER_DATA => 1;
+use constant PRICE_DISCOUNT => 2;
+
use SL::DB::Helper::Filtered;
use SL::DB::Helper::Paginated;
use SL::DB::Helper::Sorted;
my ($self, %params) = @_;
my ($query, @values) = $self->get_matching_filter(%params);
- my @ids = selectall_ids($::form, $::form->get_standard_dbh, $query, 0, @values);
-
+ my @ids = selectcol_array_query($::form, SL::DB->client->dbh, $query, @values);
return [] unless @ids;
$self->get_all(query => [ id => \@ids ]);
}
+sub all_price_types {
+ [ PRICE_NEW, t8('Price') ],
+ [ PRICE_REDUCED_MASTER_DATA, t8('Reduced Master Data') ],
+ [ PRICE_DISCOUNT, t8('Discount') ],
+}
+
sub _sort_spec {
return ( columns => { SIMPLE => 'ALL', },
default => [ 'name', 1 ],