From 160be29a0dc62e79a4fb95d2ab8c0c7e5996760e Mon Sep 17 00:00:00 2001
From: cvs2git <cvs2git>
Date: Mon, 12 Aug 2002 06:17:10 +0000
Subject: This commit was manufactured by cvs2svn to create branch
 'BESTPRACTICAL'.

---
 rt/webrt/Admin/Elements/SelectRights | 58 ------------------------------------
 1 file changed, 58 deletions(-)
 delete mode 100644 rt/webrt/Admin/Elements/SelectRights

(limited to 'rt/webrt/Admin/Elements/SelectRights')

diff --git a/rt/webrt/Admin/Elements/SelectRights b/rt/webrt/Admin/Elements/SelectRights
deleted file mode 100644
index 0ac774985..000000000
--- a/rt/webrt/Admin/Elements/SelectRights
+++ /dev/null
@@ -1,58 +0,0 @@
-<INPUT TYPE=HIDDEN NAME="CheckACL"  VALUE="<%$ACLDesc%>">
-     <TABLE BORDER=0>
-<TR>
-<TD valign=top>
-<h3>New rights</h3> 
-<SELECT SIZE=5  MULTIPLE  NAME="GrantACE-<%$ACLDesc%>">
-% foreach $right (sort keys %Rights) {
-      <OPTION VALUE="<%$right%>"  
-	><%$right%></OPTION>
-% }
-<OPTION VALUE="" SELECTED>(no value)</OPTION>
-</SELECT>
-</TD>
-<TD valign=top> 
-<h3>Current rights</h3>
-<i>(Check box to revoke right)</i> <BR>
-% while (my $right = $ACLObj->Next()) {
-% if ($right->RightName) {
-<input type=checkbox value="<%$right->Id%>" name="RevokeACE"> <%$right->RightName%><br>
-% }
-%  }
-</TD>
-</TR>
-</TABLE>
-<%INIT>
-    my ($right, $ACLDesc, $AppliesTo, %Rights);
-   
-       
-    my $ACLObj = new RT::ACL($session{'CurrentUser'});
-    my $ACE = new RT::ACE($session{'CurrentUser'});
-
-    if ($Scope eq 'Queue') { 
-        $AppliesTo = $QueueObj->Id;
-        $ACLObj->LimitToQueue($AppliesTo);
-        %Rights = $ACE->QueueRights();
-    } 
-    elsif ($Scope eq 'System') {
-        $AppliesTo = 0;
-        $ACLObj->LimitToSystem();
-        %Rights =  ( $ACE->SystemRights , $ACE->QueueRights());
-    }
-
-    if ($PrincipalType eq 'Group') {
-        $ACLObj->LimitPrincipalToGroup($PrincipalObj->Id);
-    } 
-    elsif ($PrincipalType eq 'User') {
-        $ACLObj->LimitPrincipalToUser($PrincipalObj->Id);
-    } 
-    
-    $ACLDesc = "$PrincipalType-".$PrincipalObj->Id."-$Scope-$AppliesTo";
-</%INIT>
-    
-<%ARGS>
-$PrincipalType => undef
-$PrincipalObj => undef
-$Scope => undef
-$QueueObj => undef
-</%ARGS>
-- 
cgit v1.2.1