diff options
Diffstat (limited to 'fs_selfservice/FS-SelfService/cgi/discount_term.html')
| -rw-r--r-- | fs_selfservice/FS-SelfService/cgi/discount_term.html | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/discount_term.html b/fs_selfservice/FS-SelfService/cgi/discount_term.html new file mode 100644 index 0000000..7d9ee4d --- /dev/null +++ b/fs_selfservice/FS-SelfService/cgi/discount_term.html @@ -0,0 +1,17 @@ +<%= +if ( scalar(keys %discount_terms_hash) ) { + $OUT .= '<TR>'; + $OUT .= '<TD ALIGN="right">Prepayment for</TD>'; + $OUT .= '<TD>'; + $OUT .= '<SELECT NAME="discount_term">'; + $OUT .= qq(<OPTION VALUE="">1 month\n); + foreach ( keys %discount_terms_hash ) { + $selected = $discount_term eq $_ ? ' SELECTED' : ''; + $OUT .= qq(<OPTION$selected VALUE="$_">$_ months\n); + } + $OUT .= '</SELECT>'; + $OUT .= '</TD>'; + $OUT .= '</TR>'; +} +$OUT .= ''; +%> |