Bug 20212: (QA follow-up) Remember current filter

[koha-ffzg.git] / acqui / parcel.pl

diff --git a/acqui/parcel.pl b/acqui/parcel.pl
index 3705dfc..9e4974b 100755 (executable)
--- a/acqui/parcel.pl
+++ b/acqui/parcel.pl
@@ -74,8 +74,7 @@ use Koha::Biblios;
 
 use JSON;
 
-my $input=CGI->new;
-my $sticky_filters = $input->param('sticky_filters') || 0;
+my $input = CGI->new;
 
 my ($template, $loggedinuser, $cookie)
     = get_template_and_user({template_name => "acqui/parcel.tt",
@@ -110,6 +109,25 @@ unless( $invoiceid and $invoice->{invoiceid} ) {
     exit;
 }
 
+my $sticky_filters = $input->param('sticky_filters') || 0;
+
+if ($sticky_filters) {
+    my $search          = $input->cookie("filter_parcel_summary");
+    my $ean             = $input->cookie("filter_parcel_ean");
+    my $basketname      = $input->cookie("filter_parcel_basketname");
+    my $orderno         = $input->cookie("filter_parcel_orderno");
+    my $basketgroupname = $input->cookie("filter_parcel_basketgroupname");
+
+    $template->param(
+        summaryfilter         => $search,
+        eanfilter             => $ean,
+        basketfilter          => $basketname,
+        orderfilter           => $orderno,
+        basketgroupnamefilter => $basketgroupname,
+    );
+}
+
+
 my $booksellerid = $invoice->{booksellerid};
 my $bookseller = Koha::Acquisition::Booksellers->find( $booksellerid );