--- trunk/lib/Frey/ObjectBrowser.pm 2008/07/10 15:23:16 81 +++ trunk/lib/Frey/ObjectBrowser.pm 2008/07/10 15:29:01 82 @@ -47,23 +47,25 @@ my @w; while ( my $u = $s->next ) { - warn "# u = ",dump( $u ); - my $w = Strix::View::User->new( - #%{ unbless( $u ) }, # FIXME this is cludge - %{ $u } # much better :-) - ); + my $w = Strix::View::User->new( %{ $u } ); $w->_fey( $u ); - warn "# w = ",dump( $w ); + warn "# w = ",dump( $w ) if $self->debug; push @w, $w; } - push @w, Strix::View::User->new( render_as => 'edit' ); - while ( 1 ) { - warn "# got $#w elements\n"; + warn "# got $#w elements: ",dump( map { $_->id } @w ); + warn "<<< GOT REQUEST ",dump( $f ); + + warn "does last element have id? ",dump( $w[$#w]->id ); + + if ( $w[ $#w ]->_fey ) { + warn "+++ added new widget\n"; + push @w, Strix::View::User->new( render_as => 'edit' ); + } - my $form = join('
', map { $_->process($f) } @w ); + my $form = join('
', map { $_->process($f) || '[deleted]' } @w ); my $doc = Continuity::Widget::DomNode->create( html => [ head => [