Author: richter
Date: Fri Jan 15 21:52:42 2016
New Revision: 1724883
URL: http://svn.apache.org/viewvc?rev=1724883&view=rev
Log:
Support nameprefix for grid fields
Modified:
perl/embperl/trunk/Embperl/Form/Control/grid.pm
Modified: perl/embperl/trunk/Embperl/Form/Control/grid.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/grid.pm?rev=1724883&r1=1724882&r2=1724883&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/grid.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/grid.pm Fri Jan 15 21:52:42 2016
@@ -580,7 +580,7 @@ $]
<tr class="cGridHeader">
[$ foreach my $field (@$fields) $]
[* next if ($field -> is_hidden ) ; *]
- <td class="cGridHeader" style="[$if($width =
$field->{width})$]width: [+$width+];[$endif$] [$if($width =
$field->{min_width})$]min-width: [+$width+];[$endif$]" _colattr="[+
$field->{name} +]">[+ $self -> form -> convert_label ($self, $field->{name},
$field->{text}, $req) +]</td>
+ <td class="cGridHeader" style="[$if($width =
$field->{width})$]width: [+$width+];[$endif$] [$if($width =
$field->{min_width})$]min-width: [+$width+];[$endif$]" _colattr="[+
$field->{name} +]">[+ $self -> form -> convert_label ($self,
$field->{nameprefix}?$field->{nameprefix} . $field->{name}:$field->{name},
$field->{text}, $req) +]</td>
[$ endforeach $]
</tr>
</thead>
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-cvs-h...@perl.apache.org
