httemplate/view/cust_main/quick-charge.html

   1 <%
   2   my( $cust_main ) = @_;
   3   my $conf = new FS::Conf;
   4 %>
   5
   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 &nbsp;Amount:<INPUT TYPE="text" NAME="amount" SIZE=6>
  10 &nbsp;<%
  11
  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')
  16       or die dbh->errstr;
  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>!;
  22     }
  23     print '</SELECT>';
  24   } else {
  25     print '<INPUT TYPE="hidden" NAME="taxclass" VALUE="">';
  26   }
  27
  28 %>
  29
  30 <INPUT TYPE="submit" VALUE="One-time charge">
  31 </FORM>
  32