svn commit: r1094230 - in /perl/embperl/trunk/Embperl/Form/Control: grid.pm mult.pm selectdyn.pm table.pm

[ri...@apache.org]

Author: richter
Date: Mon Apr 18 05:49:33 2011
New Revision: 1094230

URL: http://svn.apache.org/viewvc?rev=1094230&view=rev
Log:
Embperl::Form and jQuery

Modified:
    perl/embperl/trunk/Embperl/Form/Control/grid.pm
    perl/embperl/trunk/Embperl/Form/Control/mult.pm
    perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm
    perl/embperl/trunk/Embperl/Form/Control/table.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=1094230&r1=1094229&r2=1094230&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/grid.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/grid.pm Mon Apr 18 05:49:33 2011
@@ -83,7 +83,7 @@ sub init_data
     my $col ;
     foreach my $entry (@entries)
         {
-        $data = ref $entry eq 'ARRAY'?$entry:[ecos::LdapBase -> splitAttrValue($entry)];
+        $data = ref $entry eq 'ARRAY'?$entry:[$ldap?ecos::LdapBase -> splitAttrValue($entry):$entry];
         my $rowno = shift @$data ;
         $j = 0 ;
         foreach my $field (@$fields)

Modified: perl/embperl/trunk/Embperl/Form/Control/mult.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/mult.pm?rev=1094230&r1=1094229&r2=1094230&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/mult.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/mult.pm Mon Apr 18 05:49:33 2011
@@ -190,8 +190,8 @@ $]
  
  $]
 
-              <img src="[+ $self -> {imagedir} +]/button_plus.gif"   id="[+ $self -> {id} +]-add" title="Zeile Hinzuf&uuml;gen">
-              <img src="[+ $self -> {imagedir} +]/button_kreuz.gif"  id="[+ $self -> {id} +]-del" title="Zeile L&ouml;schen">
+              <img src="[+ $self -> {imagedir} +]/btn_add.gif"   id="[+ $self -> {id} +]-add" title="Zeile Hinzuf&uuml;gen">
+              <img src="[+ $self -> {imagedir} +]/btn_del.gif"  id="[+ $self -> {id} +]-del" title="Zeile L&ouml;schen">
 [$endsub$]
              
 [# ---------------------------------------------------------------------------

Modified: perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm?rev=1094230&r1=1094229&r2=1094230&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm Mon Apr 18 05:49:33 2011
@@ -147,6 +147,7 @@ autocomplete_setup($( "#_inp_[+ $jsname 
                         popupurl:  '[+ do { local $escmode = 0 ; $self -> {popupurl} } +]',
                         datasrcurl:  '[+ do { local $escmode = 0 ; $self -> {datasrcurl} } +]',
                         datasrc:     '[+ $self->{datasrc} +]',
+                        use_ajax:     '[+ $self->{use_ajax} +]',
                         show_on_select: [+ $self->{show_on_select}?'true':'false' +],
                         }) ;
 </[$if $noscript $]x-[$endif$]script type="text/javascript">
@@ -358,6 +359,11 @@ url encoded.
 
 If true show the selected item as soon as it is selected (useses showurl)
 
+=head3 use_ajax
+
+If set to an id of an html element, documents that are loaded via showurl
+are fetch via ajax into this html container, instead of fetching a whole page.
+
 =head3 $fdat{-init-<name>}
 
 If set this value is used to prefill the input box, if not set get_values

Modified: perl/embperl/trunk/Embperl/Form/Control/table.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/table.pm?rev=1094230&r1=1094229&r2=1094230&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/table.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/table.pm Mon Apr 18 05:49:33 2011
@@ -126,7 +126,7 @@ __EMBPERL__
                 $link = $c -> [4] ;
                 if (ref $link eq 'CODE')
                     {
-                    $href = &$link ($o) ;    
+                    $href = &$link ($o, $self) ;    
                     }
                 elsif ($link)
                     {
@@ -135,9 +135,11 @@ __EMBPERL__
                 $link = $c -> [7] ;
                 if (ref $link eq 'CODE')
                     {
-                    $id = &$link ($o) ;    
+                    $id = &$link ($o, $self) ;    
                     }
-             -][$ if ($href)
+             -][$ if ($href && $self->{use_ajax})
+                $]<a href="#"  [$if ($id) $] id="[+ "$self->{name}_${attr}_$r" +]" [$endif$] onClick="$('#[+ $self->{use_ajax} +]').load ('[+ $href +]')">[+ ref $item?join ('; ',@$item):$item +]</a>
+            [$elsif ($href)
                 $]<a href="[+ do { local $escmode = 0 ; $href } +]" target="[+ $c -> [5] +]" [$if ($id) $]id="[+ "$self->{name}_${attr}_$r" +]"[$endif$]>[+ ref $item?join ('; ',@$item):$item +]</a>
             [$else
                 $][+ ref $item?join ('; ',@$item):$item



---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org