rt/webrt/Admin/Elements/SelectScrip

   1 <SELECT NAME=<%$Name%>>
   2 <OPTION VALUE=""
   3 <% $Default eq undef && 'SELECTED' %>
   4 >-</OPTION>
   5 %while  (my $Scrip = $Scrips->Next) {
   6 <OPTION VALUE=<%$Scrip->Id%>
   7 <% $Scrip->Id == $Default && 'SELECTED' %>
   8 ><%$Scrip->Name%>
   9 </OPTION>
  10 %}
  11 </SELECT>
  12
  13 <%INIT>
  14 my $Scrips = RT::Scrips->new($session{'CurrentUser'});
  15 $Scrips->UnLimit;
  16
  17
  18
  19 </%INIT>
  20 <%ARGS>
  21
  22 $Default => undef
  23 $Name => 'Scrip'
  24
  25 </%ARGS>