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

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

revision 1036 by dpavlin, Sun Feb 8 12:24:17 2009 UTC revision 1133 by dpavlin, Tue Jun 30 15:10:55 2009 UTC
# Line 2  package Frey::DBIC::Designer; Line 2  package Frey::DBIC::Designer;
2  use Moose;  use Moose;
3    
4  extends 'Frey';  extends 'Frey';
5  with 'Frey::Web';  with 'Frey::Web', 'Frey::Config', 'Frey::Storage', 'Frey::jQuery';
 with 'Frey::Config';  
 with 'Frey::Storage';  
 with 'Frey::jQuery';  
6    
7  has dbic_class => (  has dbic_class => (
8          is => 'rw',          is => 'rw',
# Line 86  sub as_markup { Line 83  sub as_markup {
83    
84          my $rows;          my $rows;
85    
86          while ( my $row = $rs->next ) {          while ( my $feed = $rs->next ) {
87  #               my %row = $row->get_columns;  #               my %row = $feed->get_columns;
88    
89                  my $row;                  my $row;
90    
91                  foreach my $name ( @columns ) {                  foreach my $name ( @columns ) {
92                          my $v = $row->$name;                          my $v = $feed->$name;
93                          $v = '<code>NULL</code>' if ! defined $v;                          $v = '<code>NULL</code>' if ! defined $v;
94                          $row .= qq|<td title="$name">$v</td>|;                          $row .= qq|<td title="$name">$v</td>|;
95                  }                  }
96    
97                  my $feed;                  $row .= qq|<td>| . $feed->feed->title . qq|</td>| if $feed->can('feed');
                 if ( $feed = $row->feed ) {  
                         $row .= qq|<td> $feed->title </td>|;  
                 }  
98    
99                  $rows .= qq|<tr>$row</tr>\n|;                  $rows .= qq|<tr>$row</tr>\n|;
100          }          }
# Line 200  L<http://www.shadowcat.co.uk/archive/con Line 194  L<http://www.shadowcat.co.uk/archive/con
194    
195  =cut  =cut
196    
197    __PACKAGE__->meta->make_immutable;
198    no Moose;
199    
200  1;  1;
Legend:
Removed from v.1036  
changed lines
  Added in v.1133
  ViewVC Help
Powered by ViewVC 1.1.26