import rt 2.0.14

[freeside.git] / rt / webrt / Admin / Global / UserRights.html

diff --git a/rt/webrt/Admin/Global/UserRights.html b/rt/webrt/Admin/Global/UserRights.html
new file mode 100755 (executable)
index 0000000..351f4b8
--- /dev/null
+++ b/rt/webrt/Admin/Global/UserRights.html
@@ -0,0 +1,42 @@
+<& /Admin/Elements/Header, Title => 'Modify System ACLS' &>
+<& /Admin/Elements/SystemTabs &>
+  
+<& /Elements/ListActions, actions => \@results &>
+  <FORM METHOD=POST action="UserRights.html">
+      
+
+<h2>Modify global rights for users</h2>
+<TABLE>
+%      while (my $UserObj = $Users->Next()) {
+  <TR ALIGN=RIGHT> 
+       <TD VALIGN=TOP>
+         <A HREF="<%$RT::WebPath%>/Admin/Users/Modify.html?id=<%$UserObj->id%>"><% $UserObj->Name %></A>
+       </TD>
+       <TD>
+         <& /Admin/Elements/SelectRights, PrincipalObj => $UserObj, 
+             PrincipalType => 'User',
+             Scope => 'System' &>
+         
+       </TD>
+      </TR>
+       
+% }
+    </TABLE>
+    
+    <& /Elements/Submit, Caption => "Be sure to save your changes", Reset => 1 &>
+  </FORM>
+  
+<%INIT>
+ 
+ my @results =  ProcessACLChanges(\@CheckACL, \%ARGS);
+
+ # Find out which users we want to display ACL selects for
+ my $Users = new RT::Users($session{'CurrentUser'});
+
+ $Users->LimitToPrivileged();
+  
+</%INIT>
+
+<%ARGS>
+@CheckACL => undef
+</%ARGS>