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

(-)a/misc/maintenance/check_syspref_cache.pl (-2 / +2 lines)
Lines 18-23 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
use Getopt::Long;
19
use Getopt::Long;
20
use Pod::Usage;
20
use Pod::Usage;
21
use Encode qw( encode_utf8 );
21
22
22
use Koha::Script;
23
use Koha::Script;
23
use Koha::Caches;
24
use Koha::Caches;
Lines 54-59 while (my $pref = $prefs->next) { Link Here
54
    my $var = lc $pref->variable;
55
    my $var = lc $pref->variable;
55
    my $cached_var = $syspref_cache->get_from_cache("syspref_$var");
56
    my $cached_var = $syspref_cache->get_from_cache("syspref_$var");
56
    next unless defined $cached_var; #If not defined in cache we will fetch from DB so this case is OK
57
    next unless defined $cached_var; #If not defined in cache we will fetch from DB so this case is OK
57
    say sprintf( "%s: value in cache is '%s' and value in db is '%s'", $var, $cached_var, $pref->value )
58
    say encode_utf8( sprintf( "%s: value in cache is '%s' and value in db is '%s'", $var, $cached_var, $pref->value ) )
58
      unless $cached_var eq $pref->value;
59
      unless $cached_var eq $pref->value;
59
}
60
}
60
- 

Return to bug 24272