# HG changeset patch
# User wizard
# Date 1276618378 -14400
# Node ID e4f15cbc3f1a2d93e21c7481e93d1a743bb0046e
# Parent  08753833173d71f4a3a80b36eb21893a85238797
Fixed utf-8 problem

diff -r 08753833173d -r e4f15cbc3f1a Lib/IMPL/Web/Application.pm
--- a/Lib/IMPL/Web/Application.pm	Tue Jun 15 02:41:07 2010 +0400
+++ b/Lib/IMPL/Web/Application.pm	Tue Jun 15 20:12:58 2010 +0400
@@ -52,7 +52,7 @@
         };
         if ($@) {
         	my $e = $@;
-        	# we are expect that this method is safe otherwise we can trust nothing in this wolrd 
+        	# we are expecting this method to be safe otherwise we can trust nothing in this wolrd 
         	$this->handlerError()->($this,$action,$e);
         }
     }
@@ -72,9 +72,12 @@
 	my $hasFetched = 0;
 
 	sub defaultFetchRequest {
+		my ($this) = @_;
 		return undef if $hasFetched;
 		$hasFetched = 1;
-		return CGI->new();
+		my $query = CGI->new();
+		$query->charset($this->responseCharset);
+		return $query;
 	}
 }
 
diff -r 08753833173d -r e4f15cbc3f1a Lib/IMPL/Web/QueryHandler/PageFormat.pm
--- a/Lib/IMPL/Web/QueryHandler/PageFormat.pm	Tue Jun 15 02:41:07 2010 +0400
+++ b/Lib/IMPL/Web/QueryHandler/PageFormat.pm	Tue Jun 15 20:12:58 2010 +0400
@@ -46,6 +46,7 @@
 		
 		$doc->LoadFile ( File::Spec->catfile($this->templatesBase,@path), $this->templatesCharset, $this->templatesBase );
 		$doc->AddVar( result => $nextHandler->() );
+		$doc->AddVar( app => $action->application );
 		$doc->AddVar( absoluteUrl => sub { "$prefixRoot/$_[0]" } );
 		$doc->AddVar( relativeUrl => sub { join '/', $prefixRoot, @pathContainer,$_[0] } );
 		{