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/03/18 13:37:38 UTC
svn commit: r1082890 - in /perl/embperl/trunk/Embperl/Form: Control/grid.pm
Control/selectdyn.pm ControlMultValue.pm
Author: richter
Date: Fri Mar 18 12:37:38 2011
New Revision: 1082890
URL: http://svn.apache.org/viewvc?rev=1082890&view=rev
Log:
Grid for jQuery
Modified:
perl/embperl/trunk/Embperl/Form/Control/grid.pm
perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm
perl/embperl/trunk/Embperl/Form/ControlMultValue.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=1082890&r1=1082889&r2=1082890&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/grid.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/grid.pm Fri Mar 18 12:37:38 2011
@@ -56,7 +56,9 @@ sub init
$self -> {width} = 1 ;
my $form = $self -> form ;
- $form -> new_controls ($self -> {fields}, $form -> {options}) ;
+ my $options = $form -> {options} ;
+ my $validate_rules = $self -> {validate_rules} = [] ;
+ $form -> new_controls ($self -> {fields}, $options, undef, undef, $validate_rules, $options -> {masks}, $options -> {defaults}) ;
return $self ;
}
Modified: perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm?rev=1082890&r1=1082889&r2=1082890&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm Fri Mar 18 12:37:38 2011
@@ -140,8 +140,8 @@ $]
value="[+ $initval +]"
>
<input type="hidden" name="[+ $name +]" id="[+ $jsname +]" >
-<input type="hidden" name="[+ "_id_$jsname" +]" id="[+ "_id_$jsname" +]" >
-<script>
+<input type="hidden" name="[+ "_id_$jsname" +]" id="[+ "_id_$jsname" +]" value="[+ $self -> get_id_from_value ($fdat{$name}) +]">
+<[$if $noscript $]x-[$endif$]script type="text/javascript">
autocomplete_setup($( "#_inp_[+ $jsname +]" ), {
showurl: '[+ do { local $escmode = 0 ; $self -> {showurl} } +]',
popupurl: '[+ do { local $escmode = 0 ; $self -> {popupurl} } +]',
@@ -149,7 +149,7 @@ autocomplete_setup($( "#_inp_[+ $jsname
datasrc: '[+ $self->{datasrc} +]',
show_on_select: '[+ $self->{show_on_select}?'true':'false' +]',
}) ;
-</script>
+</[$if $noscript $]x-[$endif$]script type="text/javascript">
[$endsub$]
Modified: perl/embperl/trunk/Embperl/Form/ControlMultValue.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/ControlMultValue.pm?rev=1082890&r1=1082889&r2=1082890&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/ControlMultValue.pm (original)
+++ perl/embperl/trunk/Embperl/Form/ControlMultValue.pm Fri Mar 18 12:37:38 2011
@@ -81,6 +81,19 @@ sub get_datasource_controls
return ;
}
+# ---------------------------------------------------------------------------
+#
+# get_id_from_value - returns id for a given value
+#
+
+sub get_id_from_value
+
+ {
+ my ($self, $value) = @_ ;
+
+ return $self -> {datasrcobj} -> get_id_from_value ($value) ;
+ }
+
# ---------------------------------------------------------------------------
#
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org