blob: 0b51586d1f47ff1e69340ddc6e27e68c6ab1b74a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
<%
my( $cust_main ) = @_;
my $conf = new FS::Conf;
%>
<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="">';
}
%>
<INPUT TYPE="submit" VALUE="One-time charge">
</FORM>
|
