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

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

revision 101 by dpavlin, Fri Jul 11 22:54:42 2008 UTC revision 111 by dpavlin, Sun Jul 13 16:17:34 2008 UTC
# Line 162  sub render_edit { Line 162  sub render_edit {
162                  #warn "# edit render_iterator ",dump( @_ );                  #warn "# edit render_iterator ",dump( @_ );
163                  my ( $name, $field_name, $label, $val ) = @_;                  my ( $name, $field_name, $label, $val ) = @_;
164                  return if $name =~ /^_/;                  return if $name =~ /^_/;
165                    $val ||= '';
166                  return qq|                  return qq|
167                          <tr class="editform">                          <tr class="editform">
168                          <td class="label">$label</td>                          <td class="label">$label</td>
# Line 197  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 231  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          }          }
240    
241          warn "## display_columns ",dump( @cols );          warn "## display_columns ",dump( @cols ) if $self->debug;
242    
243          return \@cols;          return \@cols;
244  }  }
Legend:
Removed from v.101  
changed lines
  Added in v.111
  ViewVC Help
Powered by ViewVC 1.1.26