diff options
| -rw-r--r-- | perllib/Page.pm | 4 | ||||
| -rwxr-xr-x | web/index.cgi | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm index 2030a89e3..33e195fef 100644 --- a/perllib/Page.pm +++ b/perllib/Page.pm @@ -6,7 +6,7 @@ # Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: Page.pm,v 1.1 2006-09-19 16:31:09 matthew Exp $ +# $Id: Page.pm,v 1.2 2006-09-19 16:34:24 matthew Exp $ # package Page; @@ -16,7 +16,7 @@ use Carp; sub url { my ($x, $y) = @_; - return '?x=' . $x . '&y=' . $y; + return '?x=' . $x . ';y=' . $y; } =item header Q TITLE [PARAM VALUE ...] diff --git a/web/index.cgi b/web/index.cgi index 716177bba..33fdef575 100755 --- a/web/index.cgi +++ b/web/index.cgi @@ -6,7 +6,7 @@ # Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org. WWW: http://www.mysociety.org # -# $Id: index.cgi,v 1.3 2006-09-19 16:31:09 matthew Exp $ +# $Id: index.cgi,v 1.4 2006-09-19 16:34:24 matthew Exp $ use strict; use CGI::Fast qw(-no_xhtml); @@ -26,7 +26,7 @@ try { $out = front_page(); } - print $q->header(); + print $q->header(-charset=>'utf-8'); print Page::header($q, ''); print $out; print Page::footer($q); |