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