Bug 6554: Followup for acquisitions

Adds decoding for url parameter.

Test plan:
Search for expressions with diacritics in vendor search, orders search.
Also try Orders search, Advanced search (within Acq).
Check what you see.

Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>
Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>

diff --git a/acqui/booksellers.pl b/acqui/booksellers.pl
index f6c7b2e..394ae92 100755 (executable)
--- a/acqui/booksellers.pl
+++ b/acqui/booksellers.pl
@@ -74,6 +74,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
 
 #parameters
 my $supplier = $query->param('supplier');
+utf8::decode($supplier);
 my $booksellerid = $query->param('booksellerid');
 my @suppliers;
 

diff --git a/acqui/histsearch.pl b/acqui/histsearch.pl
index 971fc18..0d4ea1a 100755 (executable)
--- a/acqui/histsearch.pl
+++ b/acqui/histsearch.pl
@@ -60,13 +60,22 @@ use C4::Debug;
 
 my $input = new CGI;
 my $title                   = $input->param( 'title');
+utf8::decode($title);
 my $author                  = $input->param('author');
+utf8::decode($author);
 my $isbn                    = $input->param('isbn');
+utf8::decode($isbn);
 my $name                    = $input->param( 'name' );
+utf8::decode($name);
 my $ean                     = $input->param('ean');
+utf8::decode($ean);
 my $basket                  = $input->param( 'basket' );
+utf8::decode($basket);
 my $basketgroupname             = $input->param('basketgroupname');
+utf8::decode($basketgroupname);
 my $booksellerinvoicenumber = $input->param( 'booksellerinvoicenumber' );
+utf8::decode($booksellerinvoicenumber);
+
 my $do_search               = $input->param('do_search') || 0;
 my $from_placed_on          = C4::Dates->new($input->param('from'));
 my $to_placed_on            = C4::Dates->new($input->param('to'));