--- trunk/lib/Frey/ObjectBrowser.pm 2008/07/10 20:00:54 89 +++ trunk/lib/Frey/ObjectBrowser.pm 2008/07/11 09:35:32 94 @@ -82,6 +82,17 @@ $form = qq|$form
| if $layout eq 'table'; + my $layout_picker = join(' ', + qq|
layout:|, + map { + if ( $layout eq $_ ) { + qq|$_|; + } else { + qq|$_|; + } + } ( 'div', 'table' ), + qq|
|, + ); my $doc = Continuity::Widget::DomNode->create( html => [ @@ -90,20 +101,22 @@ ], body => [ h1 => [ 'Strix::User' ], - $layout eq 'table' ? - qq|div layout| : - qq|table layout|, + $layout_picker, form => { method=>'post' } => [ $form, ], ], ] - ); + )->to_string; - $req->print( $doc->to_string ); + warn ">>> $layout ",length( $doc ),"\n"; + + $req->print( $doc ); $req->next; $f = { $req->params }; + + process_links( $req ); } warn "NO WAY OUT!";