Login | Register For Free | Help
Search for: (Advanced)

Mailing List Archive: ModPerl: Embperl-cvs

svn commit: r1082890 - in /perl/embperl/trunk/Embperl/Form: Control/grid.pm Control/selectdyn.pm ControlMultValue.pm

 

 

ModPerl embperl-cvs RSS feed   Index | Next | Previous | View Threaded


richter at apache

Mar 18, 2011, 5:37 AM

Post #1 of 1 (479 views)
Permalink
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 [at] perl
For additional commands, e-mail: embperl-cvs-help [at] perl

ModPerl embperl-cvs RSS feed   Index | Next | Previous | View Threaded
 
 


Interested in having your list archived? Contact Gossamer Threads
 
  Web Applications & Managed Hosting Powered by Gossamer Threads Inc.