2 if ( scalar(keys %discount_terms_hash) ) {
4 $OUT .= '<TD ALIGN="right">Prepayment for</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);