[Rt-commit] r2847 - in rt/branches/QUEBEC-EXPERIMENTAL: . html/SelfService/Elements

[jesse at bestpractical.com]

Author: jesse
Date: Fri May  6 16:44:08 2005
New Revision: 2847

Modified:
   rt/branches/QUEBEC-EXPERIMENTAL/   (props changed)
   rt/branches/QUEBEC-EXPERIMENTAL/html/SelfService/Elements/Tabs
Log:
 r15841 at hualien:  jesse | 2005-05-06 16:35:23 -0400
  r14637 at hualien:  jesse | 2005-05-02 13:24:05 -0400
  * Patch to SelfService UI to not display a preferences page unless the current user (ie all unprivileged users) has the right to do so.
  
 


Modified: rt/branches/QUEBEC-EXPERIMENTAL/html/SelfService/Elements/Tabs
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/html/SelfService/Elements/Tabs	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/html/SelfService/Elements/Tabs	Fri May  6 16:44:08 2005
@@ -68,11 +68,15 @@
                        },
              C => { title => loc('New ticket'),
                     path => 'SelfService/CreateTicketInQueue.html'
-                    },
-             Z => { title => loc('Preferences'),
-                    path => 'SelfService/Prefs.html'
                     }
            };
+if ($session{'CurrentUser'}->HasRight( Right => 'ModifySelf',
+				       Object => $RT::System )) {
+	$tabs->{Z} = { title => loc('Preferences'),
+		       path => 'SelfService/Prefs.html'
+		       };
+}
+
 my $actions = {
 	B => { html => $m->scomp('GotoTicket') 
 		}