1 |
slords |
1.1 |
diff -Nur -x '*.orig' -x '*.rej' e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/cgi.pm mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/cgi.pm |
2 |
|
|
--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/cgi.pm 2007-01-26 18:51:29.000000000 -0700 |
3 |
|
|
+++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/cgi.pm 2008-03-10 18:32:38.000000000 -0600 |
4 |
|
|
@@ -80,7 +80,7 @@ |
5 |
|
|
{ |
6 |
|
|
my ($q, $confref, $title, $expiry, $checkpassword) = @_; |
7 |
|
|
|
8 |
|
|
- print $q->header (-EXPIRES => $expiry); |
9 |
|
|
+ print $q->header (-EXPIRES => $expiry, charset => 'UTF-8'); |
10 |
|
|
|
11 |
|
|
genHeaderStartHTML ($q, "panel_main"); |
12 |
|
|
|
13 |
|
|
@@ -97,7 +97,7 @@ |
14 |
|
|
{ |
15 |
|
|
my ($q, $num) = @_; |
16 |
|
|
|
17 |
|
|
- print $q->header (-EXPIRES => '-20y'); |
18 |
|
|
+ print $q->header (-EXPIRES => '-20y', charset => 'UTF-8'); |
19 |
|
|
|
20 |
|
|
genHeaderStartHTML ($q, "panel_nav", $num); |
21 |
|
|
} |
22 |
|
|
@@ -112,7 +112,7 @@ |
23 |
|
|
{ |
24 |
|
|
my ($q) = @_; |
25 |
|
|
|
26 |
|
|
- print $q->header (-EXPIRES => '-20y'); |
27 |
|
|
+ print $q->header (-EXPIRES => '-20y', charset => 'UTF-8'); |
28 |
|
|
genHeaderStartHTML ($q, "panel_main"); |
29 |
|
|
} |
30 |
|
|
|