svn commit: r604781 - in /perl/embperl/trunk/Embperl: Form.pm Form/Control/grid.pm

[richter]

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&uuml;gen  Alt-NUM+" onclick="[+ $jsname +].addRow()">
         <img src="/images/button_loeschen.gif"  id="cmdDelete"  name="-delete" 
title="Markierte Zeile L&ouml;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: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]