[Rt-commit] r19254 - in rt/3.8/trunk: .

[sartak at bestpractical.com]

Author: sartak
Date: Thu Apr 16 21:07:05 2009
New Revision: 19254

Modified:
   rt/3.8/trunk/   (props changed)
   rt/3.8/trunk/share/html/Dashboards/Queries.html

Log:
 r82259 at onn:  sartak | 2009-04-16 21:06:58 -0400
 Add some callbacks to the dashboard query selector


Modified: rt/3.8/trunk/share/html/Dashboards/Queries.html
==============================================================================
--- rt/3.8/trunk/share/html/Dashboards/Queries.html	(original)
+++ rt/3.8/trunk/share/html/Dashboards/Queries.html	Thu Apr 16 21:07:05 2009
@@ -146,6 +146,13 @@
     }
 }
 
+$m->callback(
+    CallbackName => 'PopulatePossibilities',
+    Dashboard    => $Dashboard,
+    items        => \@items,
+    desc_of      => \%desc_of,
+);
+
 # Create selectionbox widgets for those queries
 
 my %pane_name = (
@@ -153,6 +160,12 @@
     'sidebar' => loc('Sidebar'),
 );
 
+$m->callback(
+    CallbackName => 'Panes',
+    Dashboard    => $Dashboard,
+    panes        => \%pane_name,
+);
+
 my @panes;
 for my $pane (keys %pane_name) {
     my $sel = $m->comp(
@@ -166,6 +179,13 @@
         OnSubmit    => sub {
             my $self = shift;
 
+            $m->callback(
+                CallbackName => 'Submit',
+                Dashboard    => $Dashboard,
+                Selected     => $self->{Current},
+                pane         => $pane,
+            );
+
             my @portlets;
             for (@{ $self->{Current} }) {
                 my $item = $_;
@@ -202,6 +222,12 @@
             my $panes = $Dashboard->Panes;
             $panes->{$pane} = \@portlets;
 
+            $m->callback(
+                CallbackName => 'BeforeUpdate',
+                Dashboard    => $Dashboard,
+                panes        => $panes,
+            );
+
             my ($ok, $msg) = $Dashboard->Update(Panes => $panes);
 
             if ($ok) {