| 66 |
push @w, $w; |
push @w, $w; |
| 67 |
} |
} |
| 68 |
|
|
| 69 |
warn "# got $#w elements: ",dump( map { $_->id } @w ), " from total of ", $s->handle->rows; |
warn "# got $#w elements: ",dump( map { $_->fey->id } @w ), " from total of ", $s->handle->rows; |
| 70 |
} |
} |
| 71 |
|
|
| 72 |
my $rows_delimiter = ''; |
my $rows_delimiter = ''; |
| 88 |
|
|
| 89 |
if ( $layout eq 'columns' ) { |
if ( $layout eq 'columns' ) { |
| 90 |
# add header to table |
# add header to table |
| 91 |
my $header = $w[0]->render_iterator( sub { |
my $header; |
| 92 |
my ( $name, $field_name, $label, $val ) = @_; |
foreach my $name ( @{ $w[0]->display_columns } ) { |
| 93 |
return if $name =~ /^_/; |
return if $name =~ /^_/; |
| 94 |
return qq|<th>$label</th>|; |
my $label = $w[0]->field_label( $name ); |
| 95 |
}); |
$header .= qq|<th>$label</th>|; |
| 96 |
|
}; |
| 97 |
$form = qq|<table><tr>$header</tr>$form</table>|; |
$form = qq|<table><tr>$header</tr>$form</table>|; |
| 98 |
} |
} |
| 99 |
|
|
Parent Directory
| 
Revision Log
| 
Patch