diff options
| author | cvs2git <cvs2git> | 2002-08-12 06:17:10 +0000 |
|---|---|---|
| committer | cvs2git <cvs2git> | 2002-08-12 06:17:10 +0000 |
| commit | 160be29a0dc62e79a4fb95d2ab8c0c7e5996760e (patch) | |
| tree | 94ebadb17321b138fd7bfd9a5c379eec97c5d328 /rt/webrt/Admin/Global/GroupRights.html | |
| parent | 3ef62a0570055da710328937e7f65dbb2c027c62 (diff) | |
This commit was manufactured by cvs2svn to create branch 'BESTPRACTICAL'.
Diffstat (limited to 'rt/webrt/Admin/Global/GroupRights.html')
| -rwxr-xr-x | rt/webrt/Admin/Global/GroupRights.html | 78 |
1 files changed, 0 insertions, 78 deletions
diff --git a/rt/webrt/Admin/Global/GroupRights.html b/rt/webrt/Admin/Global/GroupRights.html deleted file mode 100755 index 26b7e1fe2..000000000 --- a/rt/webrt/Admin/Global/GroupRights.html +++ /dev/null @@ -1,78 +0,0 @@ -<& /Admin/Elements/Header, Title => 'Modify System ACLS' &> -<& /Admin/Elements/SystemTabs &> - -<& /Elements/ListActions, actions => \@results &> - <FORM METHOD=POST action="GroupRights.html"> - - - -<h2>Modify global rights for groups</h2> - -<TABLE> -<TR><TD>Pseudogroups</TD></TR> -% while (my $GroupObj = $PseudoGroups->Next()) { - - <TR ALIGN=RIGHT> - <TD VALIGN=TOP> - <% $GroupObj->Name %> - </TD> - <TD> - <& /Admin/Elements/SelectRights, PrincipalObj => $GroupObj, - PrincipalType => 'Group', - Scope => 'System' &> - </TD> - </TR> - -% } - -<TR><TD>Groups</TD></TR> - -% while (my $GroupObj = $Groups->Next()) { - - <TR ALIGN=RIGHT> - <TD VALIGN=TOP> - <% $GroupObj->Name %> - </TD> - <TD> - <& /Admin/Elements/SelectRights, PrincipalObj => $GroupObj, - PrincipalType => 'Group', - Scope => 'System' &> - </TD> - </TR> - -% } - - </TABLE> - <& /Elements/Submit, Caption => "Be sure to save your changes", Reset => 1 &> - </FORM> - - <%INIT> - - #Update the acls. - my @results = ProcessACLChanges(\@CheckACL, \%ARGS); - - - # {{{ do basic initialization. - - - - # Find out which groups we want to display ACL selects for. - my $Groups = new RT::Groups($session{'CurrentUser'}); - #TODO: limit this to non-pseudogroups - $Groups->LimitToReal(); - - - my $PseudoGroups = new RT::Groups($session{'CurrentUser'}); - #TODO: limit this to non-pseudogroups - $PseudoGroups->LimitToPseudo; - - # }}} - - - - - </%INIT> - -<%ARGS> -@CheckACL => undef -</%ARGS> |