/[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 92 by dpavlin, Thu Jul 10 20:00:54 2008 UTC revision 93 by dpavlin, Fri Jul 11 09:25:02 2008 UTC
# Line 91  sub html { Line 91  sub html {
91                                  body => [                                  body => [
92                                          h1 => [ 'Strix::User' ],                                          h1 => [ 'Strix::User' ],
93                                          $layout eq 'table' ?                                          $layout eq 'table' ?
94                                                    # gen_link doesn't work since Widngets have it's own scope of layout
95    #                                               gen_link( 'div layout', sub { $layout = 'div' } ) :
96    #                                               gen_link( 'table layout', sub { $layout = 'table' } ),
97                                                  qq|<a href="?layout=div">div layout</a>| :                                                  qq|<a href="?layout=div">div layout</a>| :
98                                                  qq|<a href="?layout=table">table layout</a>|,                                                  qq|<a href="?layout=table">table layout</a>|,
99                                          form => { method=>'post' } => [                                          form => { method=>'post' } => [
# Line 98  sub html { Line 101  sub html {
101                                          ],                                          ],
102                                  ],                                  ],
103                          ]                          ]
104                  );                  )->to_string;
105    
106                  $req->print( $doc->to_string );                  warn ">>> $layout ",length( $doc ),"\n";
107    
108                    $req->print( $doc );
109                  $req->next;                  $req->next;
110    
111                  $f = { $req->params };                  $f = { $req->params };
112    
113                    process_links( $req );
114          }          }
115    
116          warn "NO WAY OUT!";          warn "NO WAY OUT!";
Legend:
Removed from v.92  
changed lines
  Added in v.93
  ViewVC Help
Powered by ViewVC 1.1.26