Mercurial > pub > Impl

comparison Lib/IMPL/Web/Application.pm @ 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 6dd659f6f66c
children 06a34c197b05
comparison
equal deleted inserted replaced
128:08753833173d 129:e4f15cbc3f1a
50 50
51 $action->response->Complete; 51 $action->response->Complete;
52 }; 52 };
53 if ($@) { 53 if ($@) {
54 my $e = $@; 54 my $e = $@;
55 # we are expect that this method is safe otherwise we can trust nothing in this wolrd 55 # we are expecting this method to be safe otherwise we can trust nothing in this wolrd
56 $this->handlerError()->($this,$action,$e); 56 $this->handlerError()->($this,$action,$e);
57 } 57 }
58 } 58 }
59 } 59 }
60 60
70 70
71 { 71 {
72 my $hasFetched = 0; 72 my $hasFetched = 0;
73 73
74 sub defaultFetchRequest { 74 sub defaultFetchRequest {
75 my ($this) = @_;
75 return undef if $hasFetched; 76 return undef if $hasFetched;
76 $hasFetched = 1; 77 $hasFetched = 1;
77 return CGI->new(); 78 my $query = CGI->new();
79 $query->charset($this->responseCharset);
80 return $query;
78 } 81 }
79 } 82 }
80 83
81 sub defaultHandlerError { 84 sub defaultHandlerError {
82 my ($this,$action,$e) = @_; 85 my ($this,$action,$e) = @_;