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

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

revision 990 by dpavlin, Fri Jan 9 16:02:33 2009 UTC revision 991 by dpavlin, Sat Jan 10 23:29:38 2009 UTC
# Line 9  use lib 'lib'; Line 9  use lib 'lib';
9  use Frey::ORM::Item;  use Frey::ORM::Item;
10  use Frey::ORM::Links;  use Frey::ORM::Links;
11    
12  extends 'Frey::ORM::Pager';  extends 'Frey';
13    with 'Frey::ORM::Pager';
14  with 'Frey::Web';  with 'Frey::Web';
15    
16  has 'fey_class' => (  has 'fey_class' => (
17          is => 'rw',          is => 'rw',
18          isa => 'Str',          isa => 'Str',
19          required => 1,          default => 'Reblog::Feeds',
20  );  );
21    
22  sub as_markup {  sub as_markup {
23          my ( $self ) = @_;          my ( $self ) = @_;
24    
25          $self->add_head( 'static/form.css' );          $self->add_head( 'static/form.css' );
         my @w;  
26    
27          $self->update_collection;  =for FIXME
28            $self->add_item(
29          my $last = $self->last_item;                  Frey::ORM::CRUD->new(
30                            fey_class => $self->fey_class,
31          if ( $last->fey ) {                          render_as => 'edit',
32                  warn "+++ add item widget\n";                  )
33                  $self->add_item(          );
34                          Frey::ORM::CRUD->new(  =cut
                                 fey_class => $self->fey_class,  
                                 render_as => 'edit',  
                         )  
                 );  
         }  
35    
36          my $form = $self->items_in_layout;          my $form = $self->items_in_layout;
37          $form = $last->render_table_wrapper( $form );  #       $form = $self->render_table_wrapper( $form );
38    
39          my $html = $self->html_page(          my $html = $self->html_page(
40                  body => '<h1>' . $self->fey_class . '</h1>'                  body => '<h1>' . $self->fey_class . '</h1>'
41                          . $last->layout_picker  # FIXME ugly  #                       . $last->layout_picker  # FIXME ugly
42                          . $self->render_pager                          . $self->render_pager
43                          . qq|<form method="post">$form</form>|                          . qq|<form method="post">$form</form>|
44          );          );
Legend:
Removed from v.990  
changed lines
  Added in v.991
  ViewVC Help
Powered by ViewVC 1.1.26