rt/webrt/Admin/Elements/SelectQueueRights

   1 %# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Admin/Elements/Attic/SelectQueueRights,v 1.1 2002-08-12 06:17:08 ivan Exp $
   2
   3 <SELECT NAME ="<%$Name%>">
   4 <OPTION VALUE="">-</OPTION>
   5 %foreach $right (@rights) {
   6 <OPTION VALUE="<%$right%>" <%($Default eq $right) && 'SELECTED'%>><%$right%></OPTION>
   7 % }
   8 </SELECT>
   9 <%ONCE>
  10
  11 use RT::ACE;
  12 my $ACE = new RT::ACE($session{'CurrentUser'});
  13 my %QueueRights = $ACE->QueueRights;
  14 my %TicketRights = $ACE->TicketRights;
  15
  16 my ($key, $right, @rights);
  17
  18 foreach $key (sort keys %QueueRights) {
  19 push (@rights, $QueueRights{$key} . " ($key)");
  20 }
  21 foreach $key (sort keys %TicketRights) {
  22 push (@rights, $TicketRights{$key} . " ($key)");
  23 }
  24 </%ONCE>
  25 <%ARGS>
  26 $Name => undef
  27 $Default => undef
  28
  29 </%ARGS>