/[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 143 by dpavlin, Wed Jul 16 14:17:46 2008 UTC revision 168 by dpavlin, Tue Aug 12 22:28:00 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 86  sub render_view { Line 92  sub render_view {
92                  my $label = $self->field_label( $name );                  my $label = $self->field_label( $name );
93                  my $val = $self->field_value( $name );                  my $val = $self->field_value( $name );
94    
95                  $val ||= '<tt style="color: #ccc">NULL</tt>';                  $val = '<tt style="color: #ccc">NULL</tt>' unless defined $val;
96    
97                  if ( $self->layout eq 'table' ) {                  if ( $self->layout eq 'table' ) {
98                          $out .= qq|<tr><td>$label</td><td>$val</td></tr>|;                          $out .= qq|<tr><td>$label</td><td>$val</td></tr>|;
# 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.143  
changed lines
  Added in v.168
  ViewVC Help
Powered by ViewVC 1.1.26