--- 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|
| 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!";