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> |
237 |
push @cols, $_; |
push @cols, $_; |
238 |
} |
} |
239 |
|
|
240 |
warn "## display_columns ",dump( @cols ); |
warn "## display_columns ",dump( @cols ) if $self->debug; |
241 |
|
|
242 |
return \@cols; |
return \@cols; |
243 |
} |
} |