rt/webrt/Elements/SelectResultsPerPage

   1 %# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/SelectResultsPerPage,v 1.1 2002-08-12 06:17:08 ivan Exp $
   2
   3 %# TODO: Better default handling
   4
   5 <SELECT NAME ="<%$Name%>">
   6 % foreach my $value (@values) {
   7 <OPTION VALUE="<%$value%>" <% $value == $Default && 'SELECTED' %>>
   8 <% shift @labels %>
   9 </OPTION>
  10 % }
  11 </SELECT>
  12
  13 <%INIT>
  14 my @values = qw(0 10 25 50 100);
  15 my @labels = qw(Unlimited 10 25 50 100);
  16 </%INIT>
  17 <%ARGS>
  18
  19 $Name => undef
  20 $Default => 50
  21
  22 </%ARGS>