diff options
Diffstat (limited to 'rt/webrt/Admin/Queues/UserRights.html')
-rwxr-xr-x | rt/webrt/Admin/Queues/UserRights.html | 72 |
1 files changed, 72 insertions, 0 deletions
diff --git a/rt/webrt/Admin/Queues/UserRights.html b/rt/webrt/Admin/Queues/UserRights.html new file mode 100755 index 000000000..75d9cb282 --- /dev/null +++ b/rt/webrt/Admin/Queues/UserRights.html @@ -0,0 +1,72 @@ +<& /Admin/Elements/Header, Title => 'Modify user rights for queue '. $QueueObj->Name &> +<& /Admin/Elements/QueueTabs, id => $id &> +<& /Elements/ListActions, actions => \@results &> + + <FORM METHOD=POST ACTION="UserRights.html"> + <INPUT TYPE=HIDDEN NAME=id VALUE="<% $QueueObj->id %>"> + +<& /Elements/TitleBoxStart, title => 'Modify user rights for queue '.$QueueObj->Name &> + +<TABLE> + +% while (my $UserObj = $Users->Next()) { + <TR ALIGN=RIGHT> + <TD VALIGN=TOP> + <% $UserObj->Name %> + </TD> + <TD> + <& /Admin/Elements/SelectRights, PrincipalObj => $UserObj, + PrincipalType => 'User', + Scope => 'Queue', + QueueObj => $QueueObj &> + </TD> + </TR> +% } + </TABLE> + + <& /Elements/TitleBoxEnd &> + <& /Elements/Submit, Caption => "Be sure to save your changes", Reset => 1 &> + + </FORM> + +<%INIT> + + #Update the acls. + my @results = ProcessACLChanges(\@CheckACL, \%ARGS); + +# {{{ Deal with setting up the display of current rights. + +# {{{ do basic initialization. + +#Define vars used in html above +my ($GroupObj); + +my ($right); + + +if (!defined $id) { + Abort("No Queue defined"); +} + +my $QueueObj = new RT::Queue($session{'CurrentUser'}); +$QueueObj->Load($id) || + Abort("Couldn't load queue $id"); + +# Find out which users we want to display ACL selects for +my $Users = new RT::Users($session{'CurrentUser'}); +$Users->LimitToPrivileged(); + +# }}} + + +# }}} + +</%INIT> + +<%ARGS> +$id => undef +$UserString => undef +$UserOp => undef +$UserField => undef +@CheckACL => undef +</%ARGS> |