diff options
Diffstat (limited to 'httemplate/view/cust_main/quick-charge.html')
| -rw-r--r-- | httemplate/view/cust_main/quick-charge.html | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/httemplate/view/cust_main/quick-charge.html b/httemplate/view/cust_main/quick-charge.html new file mode 100644 index 0000000..e62949e --- /dev/null +++ b/httemplate/view/cust_main/quick-charge.html @@ -0,0 +1,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> + |