3 my $conf = new FS::Conf;
6 <FORM ACTION="${p}edit/process/quick-charge.cgi" METHOD="POST">
7 <INPUT TYPE="hidden" NAME="custnum" VALUE="<%= $cust_main->custnum %>">
8 Description:<INPUT TYPE="text" NAME="pkg">
9 Amount:<INPUT TYPE="text" NAME="amount" SIZE=6>
12 #false laziness w/ edit/part_pkg.cgi
13 if ( $conf->exists('enable_taxclasses') ) {
14 print '<SELECT NAME="taxclass">';
15 my $sth = dbh->prepare('SELECT DISTINCT taxclass FROM cust_main_county')
17 $sth->execute or die $sth->errstr;
18 foreach my $taxclass ( map $_->[0], @{$sth->fetchall_arrayref} ) {
19 print qq!<OPTION VALUE="$taxclass"!;
20 #print ' SELECTED' if $taxclass eq $hashref->{taxclass};
21 print qq!>$taxclass</OPTION>!;
25 print '<INPUT TYPE="hidden" NAME="taxclass" VALUE="">';
30 <INPUT TYPE="submit" VALUE="One-time charge">