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

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

revision 105 by dpavlin, Sun Jul 13 12:08:59 2008 UTC revision 111 by dpavlin, Sun Jul 13 16:17:34 2008 UTC
# Line 198  sub render_view { Line 198  sub render_view {
198                  #warn "# view render_iterator ",dump( @_ );                  #warn "# view render_iterator ",dump( @_ );
199                  my ( $name, $field_name, $label, $val ) = @_;                  my ( $name, $field_name, $label, $val ) = @_;
200                  return if $name =~ /^_/;                  return if $name =~ /^_/;
201                    $val ||= '';
202                  return qq|<tr><td>$label</td><td>$val</td></tr>| if $self->layout eq 'table';                  return qq|<tr><td>$label</td><td>$val</td></tr>| if $self->layout eq 'table';
203                  return qq|<td>$val</td>| if $self->layout eq 'columns';                  return qq|<td>$val</td>| if $self->layout eq 'columns';
204                  return qq|                  return qq|
# Line 232  sub _build_display_columns { Line 233  sub _build_display_columns {
233    
234          foreach ( $m->get_attribute_list ) {          foreach ( $m->get_attribute_list ) {
235                  my $attr = $m->get_attribute( $_ );                  my $attr = $m->get_attribute( $_ );
236                  warn ">> $_\n";                  warn "_build_display_columns $_\n" if $self->debug;
237                  # FIXME primary key would have to be read-only!                  # FIXME primary key would have to be read-only!
238                  push @cols, $_;                  push @cols, $_;
239          }          }
Legend:
Removed from v.105  
changed lines
  Added in v.111
  ViewVC Help
Powered by ViewVC 1.1.26