Mercurial > pub > Impl

changeset 129:e4f15cbc3f1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed utf-8 problem
author wizard
date Tue, 15 Jun 2010 20:12:58 +0400
parents 08753833173d
children 06a34c197b05
files Lib/IMPL/Web/Application.pm Lib/IMPL/Web/QueryHandler/PageFormat.pm
diffstat 2 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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;
 	}
 }
 
--- 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] } );
 		{