You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2011/04/11 05:37:50 UTC
svn commit: r1090928 - in /perl/embperl/trunk/Embperl: Form.pm
Form/Control/table.pm
Author: richter
Date: Mon Apr 11 03:37:50 2011
New Revision: 1090928
URL: http://svn.apache.org/viewvc?rev=1090928&view=rev
Log:
Embperl::Form addition for use with jQuery and Ajax tables
Modified:
perl/embperl/trunk/Embperl/Form.pm
perl/embperl/trunk/Embperl/Form/Control/table.pm
Modified: perl/embperl/trunk/Embperl/Form.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form.pm?rev=1090928&r1=1090927&r2=1090928&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form.pm (original)
+++ perl/embperl/trunk/Embperl/Form.pm Mon Apr 11 03:37:50 2011
@@ -263,7 +263,7 @@ sub new_controls
my $name = $control -> {name} ;
$control -> {type} =~ s/sf_select.+/select/ ;
$control -> {parentid} = $id if ($id) ;
- $control -> {id} ||= "$control->{name}-$n" ;
+ $control -> {id} ||= "$control->{name}_$n" ;
$control -> {basename} = $control->{name} ;
$control -> {formid} = $formid ;
$control -> {formptr} = "$self" ;
@@ -319,7 +319,7 @@ sub new_controls
foreach my $subcontrols (@{$control -> {subforms}})
{
next if (!$subcontrols) ;
- my $id = "$control->{name}-$i" ;
+ my $id = "$control->{name}_$i" ;
my $class = ref $self ;
my $subform = $class -> sub_new ($subcontrols, $options, $id, $validate_rules, "$self") ;
push @ids, $id ;
Modified: perl/embperl/trunk/Embperl/Form/Control/table.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/table.pm?rev=1090928&r1=1090927&r2=1090928&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/table.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/table.pm Mon Apr 11 03:37:50 2011
@@ -47,10 +47,11 @@ __EMBPERL__
[$ sub show_table_head ($self) $]
-<table width="100%">
+<table width="100%" id="_table_[+ $self->{id} +]">
[# --- heading columns --- #]
[- $i = 0 -]
+<thead>
[$foreach $line (@{$self->{columns}}) $]
<tr style="background: white">
[$foreach $c (@$line) $]
@@ -59,7 +60,8 @@ __EMBPERL__
[- $i++ -]
</tr>
[$endforeach$]
-
+</thead>
+<tbody>
[$endsub $]
@@ -70,6 +72,7 @@ __EMBPERL__
[$ sub show_table_foot ($self) $]
+</tbody>
</table>
[$endsub $]
@@ -84,8 +87,8 @@ __EMBPERL__
[$ sub show_table_row ($self, $r, $o, $dataprefix) $]
[-
-use Data::Dumper ;
-print STDERR "show_table_row ", Dumper ($self, $r, $o, $dataprefix) ;
+#use Data::Dumper ;
+#print STDERR "show_table_row ", Dumper ($self, $r, $o, $dataprefix) ;
-]
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org