Bug 33290: Fix incorrect variable in http-client.js

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

diff --git a/acqui/parcel.pl b/acqui/parcel.pl
index 3705dfc..0617269 100755 (executable)
--- a/acqui/parcel.pl
+++ b/acqui/parcel.pl
@@ -56,33 +56,26 @@ To filter the results list on this given date.
 
 use Modern::Perl;
 
-use C4::Auth;
-use C4::Acquisition;
-use C4::Budgets;
-use C4::Biblio;
-use C4::Items;
+use C4::Auth qw( get_template_and_user );
+use C4::Acquisition qw( CancelReceipt GetInvoice GetInvoiceDetails get_rounded_price );
+use C4::Budgets qw( GetBudget GetBudgetByOrderNumber GetBudgetName );
 use CGI qw ( -utf8 );
-use C4::Output;
-use C4::Suggestions;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Suggestions qw( GetSuggestion GetSuggestionInfoFromBiblionumber GetSuggestionInfo );
 
 use Koha::Acquisition::Baskets;
 use Koha::Acquisition::Bookseller;
 use Koha::Acquisition::Orders;
 use Koha::Biblios;
-use Koha::DateUtils;
-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",
                  query => $input,
                  type => "intranet",
                  flagsrequired => {acquisition => 'order_receive'},
-                 debug => 1,
 });
 
 my $op = $input->param('op') // '';
@@ -193,6 +186,5 @@ $template->param(
     total_tax_excluded    => $total_tax_excluded,
     total_tax_included    => $total_tax_included,
     subtotal_for_funds    => $subtotal_for_funds,
-    sticky_filters        => $sticky_filters,
 );
 output_html_with_http_headers $input, $cookie, $template->output;