richter at apache
Dec 16, 2007, 10:30 PM
Post #1 of 1
(273 views)
Permalink
|
|
svn commit: r604781 - in /perl/embperl/trunk/Embperl: Form.pm Form/Control/grid.pm
|
|
Author: richter
Date: Sun Dec 16 22:30:15 2007
New Revision: 604781
URL: http://svn.apache.org/viewvc?rev=604781&view=rev
Log:
support for translations inside Grid
Modified:
perl/embperl/trunk/Embperl/Form.pm
perl/embperl/trunk/Embperl/Form/Control/grid.pm
Modified: perl/embperl/trunk/Embperl/Form.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form.pm?rev=604781&r1=604780&r2=604781&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form.pm (original)
+++ perl/embperl/trunk/Embperl/Form.pm Sun Dec 16 22:30:15 2007
@@ -228,6 +228,7 @@
$control -> {type} =~ s/sf_select.+/select/ ;
$control -> {parentid} = $id if ($id) ;
$control -> {id} ||= "$control->{name}-$n" ;
+ $control -> {basename} = $control->{name} ;
$control -> {formid} = $formid ;
$control -> {formptr} = "$self" ;
Modified: perl/embperl/trunk/Embperl/Form/Control/grid.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/grid.pm?rev=604781&r1=604780&r2=604781&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/grid.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/grid.pm Sun Dec 16 22:30:15 2007
@@ -180,7 +180,7 @@
$]
<table class="cBase cGridTitle">
<tr class="cTableRow">
- <td class="cBase cGridLabelBox">[+ $self->{text} +]</td>
+ <td class="cBase cGridLabelBox">[+ $self -> form -> convert_label ($self) +]</td>
<td class="cBase cGridControlBox">
<img src="/images/button_neu.gif" id="cmdAdd" name="-add" title="Zeile Hinzufügen Alt-NUM+" onclick="[+ $jsname +].addRow()">
<img src="/images/button_loeschen.gif" id="cmdDelete" name="-delete" title="Markierte Zeile Löschen Alt-NUM-" onclick="[+ $jsname +].delRow()">
@@ -200,7 +200,7 @@
$]
<tr class="cGridHeader">
[$ foreach my $field (@$fields) $]
- <td class="cGridHeader" [$if($width = $field->{width})$]width="[+$width+]"[$endif$]>[+$field->{text}+]</td>
+ <td class="cGridHeader" [$if($width = $field->{width})$]width="[+$width+]"[$endif$]>[+ $self -> form -> convert_label ($self, $field->{name}) +]</td>
[$ endforeach $]
</tr>
[$ endsub $]
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe[at]perl.apache.org
For additional commands, e-mail: embperl-cvs-help[at]perl.apache.org
|
