View | Details | Raw Unified | Return to bug 10068
Collapse All | Expand All

(-)a/admin/preferences.pl (-2 / +4 lines)
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
- 

Return to bug 10068