synch'ing 2.2 and head

[srvgit] / acqui / histsearch.pl

diff --git a/acqui/histsearch.pl b/acqui/histsearch.pl
index 4bffebf..baca8dc 100755 (executable)
--- a/acqui/histsearch.pl
+++ b/acqui/histsearch.pl
@@ -12,6 +12,8 @@ my $input = new CGI;
 my $title = $input->param('title');
 my $author = $input->param('author');
 my $name = $input->param('name');
+my $from_placed_on = $input->param('fromplacedon');
+my $to_placed_on = $input->param('toplacedon');
 
 my $dbh = C4::Context->dbh;
 my ($template, $loggedinuser, $cookie)
@@ -22,12 +24,12 @@ my ($template, $loggedinuser, $cookie)
                             flagsrequired => {acquisition => 1},
                             debug => 1,
                             });
-my $order_loop= &histsearch($title,$author,$name);
-
-$template->param(numresults => scalar(@$order_loop),
-                               suggestions_loop => $order_loop,
+my $order_loop= &histsearch($title,$author,$name,$from_placed_on,$to_placed_on);
+$template->param(suggestions_loop => $order_loop,
                                title => $title,
                                author => $author,
                                name => $name,
+                               from_placed_on =>$from_placed_on,
+                               to_placed_on =>$to_placed_on
 );
 output_html_with_http_headers $input, $cookie, $template->output;