ffzg/recall_notices.pl: added --interval and --dedup

[koha.git] / acqui / histsearch.pl

diff --git a/acqui/histsearch.pl b/acqui/histsearch.pl
index 248ff76..f5dca49 100755 (executable)
--- a/acqui/histsearch.pl
+++ b/acqui/histsearch.pl
@@ -56,6 +56,7 @@ use C4::Output;
 use C4::Acquisition;
 use C4::Debug;
 use C4::Koha;
+use Koha::AdditionalFields;
 use Koha::DateUtils;
 
 my $input = new CGI;
@@ -97,6 +98,20 @@ unless ( $input->param('from') ) {
 }
 $filters->{from_placed_on} = output_pref( { dt => $from_placed_on, dateformat => 'iso', dateonly => 1 } ),
 $filters->{to_placed_on} = output_pref( { dt => $to_placed_on, dateformat => 'iso', dateonly => 1 } ),
+my @additional_fields = Koha::AdditionalFields->search( { tablename => 'aqbasket', searchable => 1 } );
+$template->param( available_additional_fields => \@additional_fields );
+my @additional_field_filters;
+foreach my $additional_field (@additional_fields) {
+    my $value = $input->param('additional_field_' . $additional_field->id);
+    if (defined $value and $value ne '') {
+        push @additional_field_filters, {
+            id => $additional_field->id,
+            value => $value,
+        };
+    }
+}
+$filters->{additional_fields} = \@additional_field_filters;
+
 
 my $order_loop;
 # If we're supplied any value then we do a search. Otherwise we don't.