fs_selfservice/FS-SelfService/cgi/discount_term.html

   1 <%=
   2 if ( scalar(keys %discount_terms_hash) ) {
   3   $OUT .= '<TR>';
   4     $OUT .= '<TD ALIGN="right">Prepayment for</TD>';
   5     $OUT .= '<TD>';
   6       $OUT .= '<SELECT NAME="discount_term">';
   7         $OUT .= qq(<OPTION VALUE="">1 month\n);
   8         foreach ( keys %discount_terms_hash ) {
   9            $selected = $discount_term eq $_ ? ' SELECTED' : '';
  10            $OUT .= qq(<OPTION$selected VALUE="$_">$_ months\n);
  11         }
  12       $OUT .= '</SELECT>';
  13     $OUT .= '</TD>';
  14   $OUT .= '</TR>';
  15 }
  16 $OUT .= '';
  17 %>