/[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 143 by dpavlin, Wed Jul 16 14:17:46 2008 UTC revision 153 by dpavlin, Wed Jul 16 23:21:19 2008 UTC
# Line 14  use Data::Dump qw/dump/; Line 14  use Data::Dump qw/dump/;
14    
15  use Frey::Web::Design;  use Frey::Web::Design;
16  use Frey::Web::Links;  use Frey::Web::Links;
17    use Frey::Request;
18    
19  sub html {  sub html {
20          my ( $self, $req ) = @_;          my ( $self, $req ) = @_;
# Line 21  sub html { Line 22  sub html {
22          $self->add_css( 'static/form.css' );          $self->add_css( 'static/form.css' );
23    
24          my $pager;          my $pager;
25            my $items = 0;
26    
27          while ( 1 ) {          while ( 1 ) {
28                    $Frey::Request::current = $req;
29                  my $f = { $req->params };                  my $f = { $req->params };
30                  warn "<<< GOT REQUEST ",dump( $f );                  warn "<<< GOT REQUEST ",dump( $f );
31            
32                  $pager = Frey::Pager->new(                  $pager ||= Frey::Pager->new(
33                          fey_class => $self->fey_class,                          fey_class => $self->fey_class,
34                          item_constructor => sub {                          item_constructor => sub {
35                                  Frey::Web::Design->new( fey_class => $self->fey_class, @_ );                                  $items++;
36                                    warn "item_constructor $items";
37                                    return Frey::Web::Design->new( fey_class => $self->fey_class, @_ ) if $items == 1;
38                                    return Frey::Web::Item->new( fey_class => $self->fey_class, @_ );
39                          },                          },
40                  ) if ! $pager;                  ) if ! $pager;
41    
42                    $pager->pager->entries_per_page( 5 );
43                  $pager->update_collection;                  $pager->update_collection;
44    
45                  my $form = $pager->items_in_layout( $f );                  my $form = $pager->items_in_layout( $f );
46                  $form = $pager->last_item->render_table_wrapper( $form );                  # we should use first_item here to get edit fields for labels
47                    $form = $pager->first_item->render_table_wrapper( $form );
48    
49              my $html = $self->page(              my $html = $self->page(
50                          body => '<h1>' . $self->fey_class . '</h1>'                          body => '<h1>' . $self->fey_class . '</h1>'
51                                  . $pager->last_item->layout_picker      # FIXME                                  . $pager->first_item->layout_picker     # FIXME
52                                  . qq|<form method="post">$form</form>|                                  . qq|Showing $items items from collection|
53                                    . qq|<form method="post"><input type="submit" value="Save design">$form</form>|
54                  );                  );
55    
56                  warn ">>> ",length( $html ),"\n";                  warn ">>> ",length( $html ),"\n";

Legend:
Removed from v.143  
changed lines
  Added in v.153

  ViewVC Help
Powered by ViewVC 1.1.26