|
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 |
- |
|
|