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

[sartak at bestpractical.com]

Author: sartak
Date: Thu Apr 16 21:47:21 2009
New Revision: 19263

Modified:
   rt/3.8/trunk/   (props changed)
   rt/3.8/trunk/lib/RT/Dashboard.pm

Log:
 r82277 at onn:  sartak | 2009-04-16 21:47:14 -0400
 Dashboard->Dashboards


Modified: rt/3.8/trunk/lib/RT/Dashboard.pm
==============================================================================
--- rt/3.8/trunk/lib/RT/Dashboard.pm	(original)
+++ rt/3.8/trunk/lib/RT/Dashboard.pm	Thu Apr 16 21:47:21 2009
@@ -166,6 +166,21 @@
     return map { @$_ } values %{ $self->Panes };
 }
 
+=head2 Dashboards
+
+Returns a list of loaded sub-dashboards
+
+=cut
+
+sub Dashboards {
+    my $self = shift;
+    return map {
+        my $search = RT::Dashboard->new($self->CurrentUser);
+        $search->LoadById($_->{id});
+        $search
+    } grep { $_->{portlet_type} eq 'dashboard' } $self->Portlets;
+}
+
 =head2 Searches
 
 Returns a list of loaded saved searches