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>
10 <% #false laziness w/ edit/part_pkg.cgi %>
11 <% if ( $conf->exists('enable_taxclasses') ) { %>
13 <SELECT NAME="taxclass">
15 <% if ( $conf->exists('require_taxclasses') ) { %>
17 <OPTION VALUE="(select)">Select tax class
26 my $sth = dbh->prepare('SELECT DISTINCT taxclass FROM cust_main_county')
28 $sth->execute or die $sth->errstr;
29 my %taxclasses = map { $_->[0] => 1 } @{$sth->fetchall_arrayref};
30 my @taxclasses = grep $_, keys %taxclasses;
33 <% foreach my $taxclass ( @taxclasses ) { %>
35 <OPTION VALUE="<%= $taxclass %>"<%= 0 ? ' SELECTED' : '' %>><%= $taxclass %>
43 <INPUT TYPE="hidden" NAME="taxclass" VALUE="">';
47 <INPUT TYPE="submit" VALUE="One-time charge">