CRM-Tabellen in die Blacklist aufnehmen

[mfinanz.git] / SL / ClientJS.pm

diff --git a/SL/ClientJS.pm b/SL/ClientJS.pm
index 7eb092c4733c98c23ecc0779cbc4020aca76702f..ada199efa2714ec67ae6545d5a998644159abed5 100644 (file)
--- a/SL/ClientJS.pm
+++ b/SL/ClientJS.pm
@@ -70,10 +70,15 @@ my %supported_methods = (
   # Form Events
   focus        => 1,
 
   # Form Events
   focus        => 1,
 

-  # ## jqModal plugin ##
+  # Generic Event Handling ## pattern: $(<TARGET>).<FUNCTION>(<ARG1>, kivi.get_function_by_name(<ARG2>))
+  on           => 3,
+  off          => 3,
+  one          => 3,
+
+  # ## jQuery UI dialog plugin ## pattern: $(<TARGET>).dialog('<FUNCTION>')

 
   # Closing and removing the popup
 
   # Closing and removing the popup

-  jqmClose               => 1,
+  'dialog:close'         => 1,

 
   # ## jstree plugin ## pattern: $.jstree._reference($(<TARGET>)).<FUNCTION>(<ARGS>)
 
 
   # ## jstree plugin ## pattern: $.jstree._reference($(<TARGET>)).<FUNCTION>(<ARGS>)
 


@@ -127,10 +132,10 @@ sub action {
   croak "Unsupported jQuery action: $method"                                                    unless defined $num_args;
   croak "Parameter count mismatch for $method(actual: " . scalar(@args) . " wanted: $num_args)" if     scalar(@args) != $num_args;
 
   croak "Unsupported jQuery action: $method"                                                    unless defined $num_args;
   croak "Parameter count mismatch for $method(actual: " . scalar(@args) . " wanted: $num_args)" if     scalar(@args) != $num_args;
 

-  if ($num_args) {
-    # Force flattening from SL::Presenter::EscapedText: "" . $...
-    $args[0] =  "" . $args[0];
-    $args[0] =~ s/^\s+//;
+  foreach my $idx (0..$num_args - 1) {
+    # Force flattening from SL::Presenter::EscapedText and trim leading whitespace for scalars
+    $args[$idx] =  "" . $args[$idx] if  ref($args[$idx]) eq 'SL::Presenter::EscapedText';
+    $args[$idx] =~ s/^\s+//         if !ref($args[$idx]);

   }
 
   push @{ $self->_actions }, [ $method, @args ];
   }
 
   push @{ $self->_actions }, [ $method, @args ];


@@ -180,6 +185,12 @@ sub jstree {
   return $self;
 }
 
   return $self;
 }
 

+sub dialog {
+  my ($self) = @_;
+  $self->{_prefix} = 'dialog:';
+  return $self;
+}
+

 sub flash {
   my ($self, $type, @messages) = @_;
 
 sub flash {
   my ($self, $type, @messages) = @_;
 


@@ -257,6 +268,9 @@ Now some Perl code:
     $js->jstree->rename_node('#tb-' . $text_block->id, $text_block->title)
        ->jstree->select_node('#tb-' . $text_block->id);
 
     $js->jstree->rename_node('#tb-' . $text_block->id, $text_block->title)
        ->jstree->select_node('#tb-' . $text_block->id);
 

+    # Close a popup opened by kivi.popup_dialog():
+    $js->dialog->close('#jqueryui_popup_dialog');
+

     # Finally render the JSON response:
     $self->render($js);
 
     # Finally render the JSON response:
     $self->render($js);
 


@@ -319,6 +333,14 @@ to the following:
 
   $controller->render(\$self->to_json, { type => 'json' });
 
 
   $controller->render(\$self->to_json, { type => 'json' });
 

+=item C<dialog>
+
+Tells C<$self> that the next action is to be called on a jQuery UI
+dialog instance, e.g. one opened by C<kivi.popup_dialog()>. For
+example:
+
+  $js->dialog->close('#jqueryui_popup_dialog');
+

 =item C<jstree>
 
 Tells C<$self> that the next action is to be called on a jstree
 =item C<jstree>
 
 Tells C<$self> that the next action is to be called on a jstree


@@ -464,6 +486,15 @@ C<data>, C<removeData>
 
 C<focus>
 
 
 C<focus>
 

+=item Generic Event Handlers
+
+C<on>, C<off>, C<one>
+
+These attach/detach event listeners to specific selectors. The first
+argument is the selector, the second the name of the events and the
+third argument is the name of the handler function. That function must
+already exist when the handler is added.
+

 =back
 
 =head2 JSTREE JQUERY PLUGIN
 =back
 
 =head2 JSTREE JQUERY PLUGIN