| 
      
            Lines 5-10
          use lib qw( ./lib );
      
      
        Link Here
      
     | 
  
        
          | 5 | 
          use Plack::Middleware::Debug;  | 
          5 | 
          use Plack::Middleware::Debug;  | 
        
        
          | 6 | 
          use Plack::App::Directory;  | 
          6 | 
          use Plack::App::Directory;  | 
        
        
          | 7 | 
           | 
          7 | 
           | 
        
            
               | 
               | 
              8 | 
              use CGI qw(-utf8 ); # we will loose -utf8 under plack  | 
            
            
              | 9 | 
              { | 
            
            
              | 10 | 
                  no warnings 'redefine';  | 
            
            
              | 11 | 
                  my $old_new = \&CGI::new;  | 
            
            
              | 12 | 
                  *CGI::new = sub { | 
            
            
              | 13 | 
                      my $q = $old_new->( @_ );  | 
            
            
              | 14 | 
                      $CGI::PARAM_UTF8 = 1;  | 
            
            
              | 15 | 
                      C4::Context->clear_syspref_cache();  | 
            
            
              | 16 | 
                      return $q;  | 
            
            
              | 17 | 
                  };  | 
            
            
              | 18 | 
              }  | 
            
            
              | 19 | 
               | 
            
        
          | 8 | 
          BEGIN { | 
          20 | 
          BEGIN { | 
        
        
          | 9 | 
           | 
          21 | 
           | 
        
        
          | 10 | 
          # override configuration from startup script below:  | 
          22 | 
          # override configuration from startup script below:  | 
        
            
              | 11 | 
              -   | 
               | 
               |