- if ($filter->{'reqdate:date::le'}) {
- $launder_to->{'reqdate_date__le'} = delete $filter->{'reqdate:date::le'};
- my $parsed_date = DateTime->from_lxoffice($launder_to->{'reqdate_date__le'});
- push @{ $filter->{and} }, or => [
- 'reqdate' => { le => $parsed_date },
- and => [
- 'reqdate' => undef,
- 'order.reqdate' => { le => $parsed_date },
- ]
- ] if $parsed_date;
+ for my $op (qw(le ge)) {
+ if ($filter->{"reqdate:date::$op"}) {
+ $launder_to->{"reqdate_date__$op"} = delete $filter->{"reqdate:date::$op"};
+ my $parsed_date = DateTime->from_lxoffice($launder_to->{"reqdate_date__$op"});
+ push @{ $filter->{and} }, or => [
+ 'reqdate' => { $op => $parsed_date },
+ and => [
+ 'reqdate' => undef,
+ 'order.reqdate' => { $op => $parsed_date },
+ ]
+ ] if $parsed_date;
+ }
+ }
+
+ if (my $style = delete $filter->{searchstyle}) {
+ $self->{searchstyle} = $style;
+ $launder_to->{searchstyle} = $style;