/[Frey]/trunk/lib/Frey/ORM/Designer.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/ORM/Designer.pm

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

trunk/lib/Frey/ObjectDesigner.pm revision 153 by dpavlin, Wed Jul 16 23:21:19 2008 UTC trunk/lib/Frey/ORM/Designer.pm revision 980 by dpavlin, Sat Jan 10 01:02:58 2009 UTC
# Line 1  Line 1 
1  package Frey::ObjectDesigner;  package Frey::ORM::Designer;
2  use Moose;  use Moose;
3    
4  extends 'Frey';  extends 'Frey';
# 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::Design;  use Frey::ORM::Design;
16  use Frey::Web::Links;  use Frey::ORM::Links;
 use Frey::Request;  
17    
18  sub html {  sub request {
19          my ( $self, $req ) = @_;          my ( $self, $req ) = @_;
20    
21          $self->add_css( 'static/form.css' );          $self->add_head( 'static/form.css' );
22    
23          my $pager;          my $pager;
24          my $items = 0;          my $items = 0;
# Line 34  sub html { Line 33  sub html {
33                          item_constructor => sub {                          item_constructor => sub {
34                                  $items++;                                  $items++;
35                                  warn "item_constructor $items";                                  warn "item_constructor $items";
36                                  return Frey::Web::Design->new( fey_class => $self->fey_class, @_ ) if $items == 1;                                  return Frey::ORM::Design->new( fey_class => $self->fey_class, @_ ) if $items == 1;
37                                  return Frey::Web::Item->new( fey_class => $self->fey_class, @_ );                                  return Frey::ORM::Item->new( fey_class => $self->fey_class, @_ );
38                          },                          },
39                  ) if ! $pager;                  ) if ! $pager;
40    
# Line 46  sub html { Line 45  sub html {
45                  # we should use first_item here to get edit fields for labels                  # we should use first_item here to get edit fields for labels
46                  $form = $pager->first_item->render_table_wrapper( $form );                  $form = $pager->first_item->render_table_wrapper( $form );
47    
48              my $html = $self->page(              my $html = $self->html_page(
49                          body => '<h1>' . $self->fey_class . '</h1>'                          body => '<h1>' . $self->fey_class . '</h1>'
50                                  . $pager->first_item->layout_picker     # FIXME                                  . $pager->first_item->layout_picker     # FIXME
51                                  . qq|Showing $items items from collection|                                  . qq|Showing $items items from collection|
Legend:
Removed from v.153  
changed lines
  Added in v.980
  ViewVC Help
Powered by ViewVC 1.1.26