12 |
|
|
13 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
14 |
|
|
15 |
use Frey::Web::Row; |
use Frey::Web::Design; |
16 |
use Frey::Web::Links; |
use Frey::Web::Links; |
17 |
|
|
18 |
sub html { |
sub html { |
31 |
warn "# new layout = $layout\n"; |
warn "# new layout = $layout\n"; |
32 |
} |
} |
33 |
|
|
34 |
my $w = Frey::Web::Row->new( fey_class => $self->fey_class, layout => $layout, render_as => 'edit' ); |
my $w = Frey::Web::Design->new( fey_class => $self->fey_class, layout => $layout, render_as => 'edit' ); |
35 |
|
|
36 |
my $form = $w->process($f); |
my $form = $w->process($f); |
37 |
|
|
57 |
qq|</div>| |
qq|</div>| |
58 |
; |
; |
59 |
|
|
60 |
my $html = dom2html( |
$self->add_css( 'static/form.css' ); |
61 |
html => [ |
|
62 |
head => [ |
my $html = $self->page( |
63 |
link => { rel=>"stylesheet", href=>"/static/form.css", type=>"text/css" } |
body => '<h1>' . $self->fey_class . '</h1>' |
64 |
], |
. $layout_picker |
65 |
body => [ |
. qq|<form method="post">$form</form>| |
|
h1 => [ $self->fey_class ], |
|
|
$layout_picker, |
|
|
form => { method=>'post' } => [ |
|
|
$form, |
|
|
], |
|
|
], |
|
|
] |
|
66 |
); |
); |
67 |
|
|
68 |
warn ">>> $layout ",length( $html ),"\n"; |
warn ">>> $layout ",length( $html ),"\n"; |