|
Lines 31-36
use C4::Log;
Link Here
|
| 31 |
use C4::Output; |
31 |
use C4::Output; |
| 32 |
use C4::Templates; |
32 |
use C4::Templates; |
| 33 |
use C4::Budgets qw(GetCurrency); |
33 |
use C4::Budgets qw(GetCurrency); |
|
|
34 |
use Carp; |
| 35 |
use Encode; |
| 34 |
use File::Spec; |
36 |
use File::Spec; |
| 35 |
use IO::File; |
37 |
use IO::File; |
| 36 |
use YAML::Syck qw(); |
38 |
use YAML::Syck qw(); |
|
Lines 298-304
my @TABS;
Link Here
|
| 298 |
|
300 |
|
| 299 |
if ( $op eq 'search' ) { |
301 |
if ( $op eq 'search' ) { |
| 300 |
my $searchfield = $input->param('searchfield'); |
302 |
my $searchfield = $input->param('searchfield'); |
| 301 |
utf8::decode($searchfield); |
303 |
eval { $searchfield = decode('UTF-8', $searchfield, Encode::FB_CROAK); }; |
|
|
304 |
if ( $@ ) { carp "Error decoding $searchfield: $@" }; |
| 302 |
|
305 |
|
| 303 |
$searchfield =~ s/\p{IsC}//g; |
306 |
$searchfield =~ s/\p{IsC}//g; |
| 304 |
$searchfield =~ s/\s+/ /; |
307 |
$searchfield =~ s/\s+/ /; |
| 305 |
- |
|
|