print '</SELECT><INPUT TYPE="submit" VALUE="Order Package"><BR>';
+print '<BR>'.
+ qq!<FORM ACTION="${p}edit/process/quick-charge.cgi" METHOD="POST">!.
+ qq!<INPUT TYPE="hidden" NAME="custnum" VALUE="$custnum">!.
+ qq!Description:<INPUT TYPE="text" NAME="pkg">!.
+ qq! Amount:<INPUT TYPE="text" NAME="amount" SIZE=6>!.
+ qq! <INPUT TYPE="submit" VALUE="One-time charge"><BR>!;
+
print <<END;
<SCRIPT>
function cust_pkg_areyousure(href) {
for ( qw( setup bill susp expire cancel ) ) {
print "<TD ROWSPAN=$rowspan><FONT SIZE=-1>", ( $package->getfield($_)
- ? time2str("%D<BR><FONT SIZE=-2>%r %z</FONT>",
+ ? time2str("%D</FONT><BR><FONT SIZE=-3>%l:%M:%S%P %z</FONT>",
$package->getfield($_) )
: ' '
), '</FONT></TD>',