diff options
Diffstat (limited to 'rt/webrt/Admin/Elements/SelectQueueRights')
-rwxr-xr-x | rt/webrt/Admin/Elements/SelectQueueRights | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/rt/webrt/Admin/Elements/SelectQueueRights b/rt/webrt/Admin/Elements/SelectQueueRights deleted file mode 100755 index 6861d40..0000000 --- a/rt/webrt/Admin/Elements/SelectQueueRights +++ /dev/null @@ -1,29 +0,0 @@ -%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Admin/Elements/Attic/SelectQueueRights,v 1.1 2002-08-12 06:17:08 ivan Exp $ - -<SELECT NAME ="<%$Name%>"> -<OPTION VALUE="">-</OPTION> -%foreach $right (@rights) { -<OPTION VALUE="<%$right%>" <%($Default eq $right) && 'SELECTED'%>><%$right%></OPTION> -% } -</SELECT> -<%ONCE> - -use RT::ACE; -my $ACE = new RT::ACE($session{'CurrentUser'}); -my %QueueRights = $ACE->QueueRights; -my %TicketRights = $ACE->TicketRights; - -my ($key, $right, @rights); - -foreach $key (sort keys %QueueRights) { -push (@rights, $QueueRights{$key} . " ($key)"); -} -foreach $key (sort keys %TicketRights) { -push (@rights, $TicketRights{$key} . " ($key)"); -} -</%ONCE> -<%ARGS> -$Name => undef -$Default => undef - -</%ARGS> |