35 |
use Frey::Web::Links; |
use Frey::Web::Links; |
36 |
use Frey::Pager; |
use Frey::Pager; |
37 |
|
|
38 |
sub html { |
sub request { |
39 |
my ( $self, $req ) = @_; |
my ( $self, $req ) = @_; |
40 |
|
|
41 |
$self->add_css( 'static/form.css' ); |
$self->add_head( 'static/form.css' ); |
42 |
my @w; |
my @w; |
43 |
|
|
44 |
my $f = { $req->params }; |
my $f = { $req->params }; |
71 |
my $form = $pager->items_in_layout( $f ); |
my $form = $pager->items_in_layout( $f ); |
72 |
$form = $last->render_table_wrapper( $form ); |
$form = $last->render_table_wrapper( $form ); |
73 |
|
|
74 |
my $html = $self->page( |
my $html = $self->html_page( |
75 |
body => '<h1>' . $self->fey_class . '</h1>' |
body => '<h1>' . $self->fey_class . '</h1>' |
76 |
. $last->layout_picker # FIXME ugly |
. $last->layout_picker # FIXME ugly |
77 |
. $pager->render_pager |
. $pager->render_pager |