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

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

revision 147 by dpavlin, Wed Jul 16 14:17:46 2008 UTC revision 148 by dpavlin, Wed Jul 16 21:21:49 2008 UTC
# Line 26  has layout => ( Line 26  has layout => (
26    
27  =cut  =cut
28    
29    sub _render_callbacks {
30            my $self = shift;
31            return $self->render_callbacks if $self->can('render_callbacks');
32            ''
33    }
34    
35  sub render_edit {  sub render_edit {
36          my $self = shift;          my $self = shift;
37          warn "# render_edit ",$self->uuid, "\n";          warn "# render_edit ",$self->uuid, "\n";
# Line 64  sub render_edit { Line 70  sub render_edit {
70                  }                  }
71          };          };
72    
73          return qq|<tr class="editform">$out<td>| . $self->render_callbacks . qq|</td></tr>| if $self->layout eq 'columns';          return qq|<tr class="editform">$out<td>| . $self->_render_callbacks . qq|</td></tr>| if $self->layout eq 'columns';
74    
75          $self->render_item_wrapper_class( $out, 'editform' );          $self->render_item_wrapper_class( $out, 'editform' );
76  }  }
# Line 101  sub render_view { Line 107  sub render_view {
107                          |;                          |;
108                  }                  }
109          };          };
110          return qq|<tr>$out<td>| . $self->render_callbacks . qq|</td></tr>| if $self->layout eq 'columns';          return qq|<tr>$out<td>| . $self->_render_callbacks . qq|</td></tr>| if $self->layout eq 'columns';
111          $self->render_item_wrapper_class( $out, 'view' );          $self->render_item_wrapper_class( $out, 'view' );
112  }  }
113    
# Line 114  sub render_item_wrapper_class { Line 120  sub render_item_wrapper_class {
120                  return '<!-- no output -->';                  return '<!-- no output -->';
121          }          }
122          $out =~ s/^\t+//mg;     # XXX compress output          $out =~ s/^\t+//mg;     # XXX compress output
123          return $out . qq|<tr><td colspan=2>| . $self->render_callbacks . qq|</td></tr>| if $self->layout eq 'table';          return $out . qq|<tr><td colspan=2>| . $self->_render_callbacks . qq|</td></tr>| if $self->layout eq 'table';
124          return qq|<div class="$class">| . $out . $self->render_callbacks . qq|</div>|;          return qq|<div class="$class">| . $out . $self->_render_callbacks . qq|</div>|;
125  }  }
126    
127  sub render_table_wrapper {  sub render_table_wrapper {
Legend:
Removed from v.147  
changed lines
  Added in v.148
  ViewVC Help
Powered by ViewVC 1.1.26