rt/webrt/Elements/SelectOwner

   1 <SELECT NAME="<%$Name%>">
   2 <OPTION VALUE="">-</OPTION>
   3 <OPTION <% ($RT::Nobody->Id() == $Default) && "SELECTED" %> VALUE="<%$RT::Nobody->Id%>"><%$RT::Nobody->Name%></OPTION>
   4 %while ( my $User = $Users->Next())  {
   5 % if ((!defined $QueueObj) || ($User->HasQueueRight(Right => 'OwnTicket', QueueObj => $QueueObj, TicketObj => $TicketObj))){
   6 <OPTION VALUE="<%$User->Id()%>" <% ($User->Id() == $Default) && "SELECTED" %>><%$User->Name()%></OPTION>
   7 % }
   8 %}
   9 </SELECT>
  10
  11 <%INIT>
  12 my $Users = RT::Users->new($session{CurrentUser});
  13 $Users->LimitToPrivileged;
  14 </%INIT>
  15
  16 <%ARGS>
  17 $QueueObj => undef
  18 $Name => undef
  19 $Default => undef
  20 $User => undef
  21 $TicketObj => undef
  22 </%ARGS>