Lines 21-26
use strict;
Link Here
|
21 |
use warnings; |
21 |
use warnings; |
22 |
|
22 |
|
23 |
use CGI; |
23 |
use CGI; |
|
|
24 |
use URI::Escape; |
25 |
|
24 |
use C4::Auth; |
26 |
use C4::Auth; |
25 |
use C4::Context; |
27 |
use C4::Context; |
26 |
use C4::Koha; |
28 |
use C4::Koha; |
Lines 295-301
if ( $op eq 'save' ) {
Link Here
|
295 |
my @TABS; |
297 |
my @TABS; |
296 |
|
298 |
|
297 |
if ( $op eq 'search' ) { |
299 |
if ( $op eq 'search' ) { |
298 |
my $searchfield = $input->param( 'searchfield' ); |
300 |
my $searchfield = uri_unescape($input->param('searchfield')); |
|
|
301 |
utf8::decode($searchfield); |
299 |
|
302 |
|
300 |
$searchfield =~ s/\p{IsC}//g; |
303 |
$searchfield =~ s/\p{IsC}//g; |
301 |
$searchfield =~ s/\s+/ /; |
304 |
$searchfield =~ s/\s+/ /; |
302 |
- |
|
|