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

(-)a/misc/plack/koha.psgi (-1 / +15 lines)
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
    my $old_new = \&CGI::new;
11
    *CGI::new = sub {
12
        warn "# override CGI->new\n";
13
        my $q = $old_new->( @_ );
14
		if ( ! $CGI::PARAM_UTF8 ) {
15
			warn "# CGI->new -utf8 = ",$CGI::PARAM_UTF8;
16
			$CGI::PARAM_UTF8 = 1;
17
		}
18
		C4::Context->clear_syspref_cache();
19
		return $q;
20
    };
21
}
22
8
BEGIN {
23
BEGIN {
9
24
10
# override configuration from startup script below:
25
# override configuration from startup script below:
11
- 

Return to bug 13815