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