86 |
|
|
87 |
my $rows; |
my $rows; |
88 |
|
|
89 |
while ( my $row = $rs->next ) { |
while ( my $feed = $rs->next ) { |
90 |
# my %row = $row->get_columns; |
# my %row = $feed->get_columns; |
91 |
|
|
92 |
my $row; |
my $row; |
93 |
|
|
94 |
foreach my $name ( @columns ) { |
foreach my $name ( @columns ) { |
95 |
my $v = $row->$name; |
my $v = $feed->$name; |
96 |
$v = '<code>NULL</code>' if ! defined $v; |
$v = '<code>NULL</code>' if ! defined $v; |
97 |
$row .= qq|<td title="$name">$v</td>|; |
$row .= qq|<td title="$name">$v</td>|; |
98 |
} |
} |
99 |
|
|
100 |
my $feed; |
$row .= qq|<td>| . $feed->feed->title . qq|</td>| if $feed->can('feed'); |
|
if ( $feed = $row->feed ) { |
|
|
$row .= qq|<td> $feed->title </td>|; |
|
|
} |
|
101 |
|
|
102 |
$rows .= qq|<tr>$row</tr>\n|; |
$rows .= qq|<tr>$row</tr>\n|; |
103 |
} |
} |