Mercurial > pub > Impl
comparison Lib/IMPL/Web/Application.pm @ 242:fe9d62d9054d
requestCharset support
| author | sergey |
|---|---|
| date | Thu, 18 Oct 2012 20:02:51 +0400 |
| parents | 3cebcf6fdb9b |
| children | a02b110da931 |
comparison
equal
deleted
inserted
replaced
| 241:f48a1a9f4fa2 | 242:fe9d62d9054d |
|---|---|
| 22 props => [ | 22 props => [ |
| 23 actionFactory => PROP_RW, | 23 actionFactory => PROP_RW, |
| 24 handlers => PROP_RW | PROP_LIST, | 24 handlers => PROP_RW | PROP_LIST, |
| 25 security => PROP_RW, | 25 security => PROP_RW, |
| 26 options => PROP_RW, | 26 options => PROP_RW, |
| 27 requestCharset => PROP_RW, | |
| 27 fetchRequestMethod => PROP_RW, | 28 fetchRequestMethod => PROP_RW, |
| 28 output => PROP_RW | 29 output => PROP_RW |
| 29 ] | 30 ] |
| 30 }; | 31 }; |
| 31 | 32 |
| 144 my ($this) = @_; | 145 my ($this) = @_; |
| 145 return undef if $hasFetched; | 146 return undef if $hasFetched; |
| 146 $hasFetched = 1; | 147 $hasFetched = 1; |
| 147 $this->output(*STDOUT); | 148 $this->output(*STDOUT); |
| 148 my $query = CGIWrapper->new(); | 149 my $query = CGIWrapper->new(); |
| 150 $query->charset($this->requestCharset) if $this->requestCharset; | |
| 149 return $query; | 151 return $query; |
| 150 } | 152 } |
| 151 } | 153 } |
| 152 | 154 |
| 153 sub defaultErrorHandler { | 155 sub defaultErrorHandler { |
