Revision 80711e19
Von Sven Schöling vor etwa 4 Jahren hinzugefügt
| SL/Request.pm | ||
|---|---|---|
| 4 | 4 |
|
| 5 | 5 |
use parent qw(Rose::Object); |
| 6 | 6 |
|
| 7 |
use CGI qw(-no_xhtml); |
|
| 8 | 7 |
use List::Util qw(first max min sum); |
| 9 | 8 |
use List::MoreUtils qw(all any apply); |
| 10 | 9 |
use Exporter qw(import); |
| ... | ... | |
| 14 | 13 |
use SL::MoreCommon qw(uri_encode uri_decode); |
| 15 | 14 |
use SL::Layout::None; |
| 16 | 15 |
use SL::Presenter; |
| 16 |
use SL::Response; |
|
| 17 | 17 |
use SL::Util qw(trim); |
| 18 | 18 |
|
| 19 | 19 |
our @EXPORT_OK = qw(flatten unflatten); |
| ... | ... | |
| 25 | 25 |
); |
| 26 | 26 |
|
| 27 | 27 |
sub init_cgi {
|
| 28 |
return CGI->new({});
|
|
| 28 |
return SL::Response->new;
|
|
| 29 | 29 |
} |
| 30 | 30 |
|
| 31 | 31 |
sub init_layout {
|
Auch abrufbar als: Unified diff
Response in $::request->cgi benutzt und calls angepasst auf neue API