[Rt-commit] r4205 - in rt/branches/3.7-EXPERIMENTAL: . html/Search/Elements

[ruz at bestpractical.com]

Author: ruz
Date: Thu Dec  1 14:59:12 2005
New Revision: 4205

Added:
   rt/branches/3.7-EXPERIMENTAL/html/Search/Elements/UserSearches
Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
Log:
 r1369 at cubic-pc:  cubic | 2005-12-01 22:57:09 +0300
 * New component that returns saved searches available to the user


Added: rt/branches/3.7-EXPERIMENTAL/html/Search/Elements/UserSearches
==============================================================================
--- (empty file)
+++ rt/branches/3.7-EXPERIMENTAL/html/Search/Elements/UserSearches	Thu Dec  1 14:59:12 2005
@@ -0,0 +1,28 @@
+<%INIT>
+my $sys = RT::System->new( $User );
+my @objs = ($sys);
+
+if ( $User->HasRight( Right => 'LoadSavedSearch', Object=> $RT::System ) ) {
+    my $groups = RT::Groups->new( $User );
+    $groups->LimitToUserDefinedGroups;
+    $groups->WithMember( PrincipalId => $User->Id, Recursively => 1 );
+    push @objs, $User, @{ $groups->ItemsArrayRef };
+}
+
+my @searches;
+for my $object ( @objs ) {
+    for ( $m->comp("/Search/Elements/SearchesForObject", Object => $object) ) {
+        my ($desc, $search) = @$_;
+        push @searches, {
+            Description => $desc,
+            Search      => $search,
+            Type        => $object eq $sys? 'system': 'saved',
+            Object      => $object,
+        };
+    }
+}
+return @searches;
+</%INIT>
+<%ARGS>
+$User => $session{'CurrentUser'}->UserObj
+</%ARGS>