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

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

revision 81 by dpavlin, Thu Jul 10 10:28:11 2008 UTC revision 82 by dpavlin, Thu Jul 10 15:29:01 2008 UTC
# Line 47  sub html { Line 47  sub html {
47          my @w;          my @w;
48    
49          while ( my $u = $s->next ) {          while ( my $u = $s->next ) {
50                  warn "# u = ",dump( $u );                  my $w = Strix::View::User->new( %{ $u } );
                 my $w = Strix::View::User->new(  
                         #%{ unbless( $u ) }, # FIXME this is cludge  
                         %{ $u } # much better :-)  
                 );  
51                  $w->_fey( $u );                  $w->_fey( $u );
52                  warn "# w = ",dump( $w );                  warn "# w = ",dump( $w ) if $self->debug;
53                  push @w, $w;                  push @w, $w;
54          }          }
55    
         push @w, Strix::View::User->new( render_as => 'edit' );  
   
56          while ( 1 ) {          while ( 1 ) {
57                    
58                  warn "# got $#w elements\n";                  warn "# got $#w elements: ",dump( map { $_->id } @w );
59                    warn "<<< GOT REQUEST ",dump( $f );
60    
61                    warn "does last element have id? ",dump( $w[$#w]->id );
62    
63                    if ( $w[ $#w ]->_fey ) {
64                            warn "+++ added new widget\n";
65                            push @w, Strix::View::User->new( render_as => 'edit' );
66                    }
67    
68                  my $form = join('<hr/>', map { $_->process($f) } @w );                  my $form = join('<hr/>', map { $_->process($f) || '[deleted]' } @w );
69              my $doc = Continuity::Widget::DomNode->create(              my $doc = Continuity::Widget::DomNode->create(
70                          html => [                          html => [
71                                  head => [                                  head => [
Legend:
Removed from v.81  
changed lines
  Added in v.82
  ViewVC Help
Powered by ViewVC 1.1.26