/[Frey]/trunk/lib/Frey/ObjectDesigner.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/ObjectDesigner.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 113 by dpavlin, Sun Jul 13 17:38:01 2008 UTC revision 123 by dpavlin, Mon Jul 14 21:45:59 2008 UTC
# Line 12  has 'fey_class' => ( Line 12  has 'fey_class' => (
12    
13  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
14    
15  use Frey::Web::Row;  use Frey::Web::Item;
16  use Frey::Web::Links;  use Frey::Web::Links;
17    
18  sub html {  sub html {
# Line 31  sub html { Line 31  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::Item->new( fey_class => $self->fey_class, layout => $layout, render_as => 'edit' );
35    
36                  my $form = $w->process($f);                  my $form = $w->process($f);
37    
# Line 57  sub html { Line 57  sub html {
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";
Legend:
Removed from v.113  
changed lines
  Added in v.123
  ViewVC Help
Powered by ViewVC 1.1.26