httemplate/misc/recharge_svc.html

   1 <% include('/elements/header-popup.html', 'Recharge Service' ) %>
   2
   3 % if ( $cgi->param('error') ) {
   4   <FONT SIZE="+1" COLOR="#ff0000">Error: <% $cgi->param('error') %></FONT>
   5   <BR><BR>
   6 % }
   7
   8 <FORM NAME="recharge_popup" ACTION="<% popurl(1) %>process/recharge_svc.html" METHOD=POST>
   9 <INPUT TYPE="hidden" NAME="svcnum" VALUE="<% $svcnum %>">
  10
  11 <BR><BR>
  12 <% "Recharge $svcnum: $label  -  $value" %>
  13 <% ntable("#cccccc", 2) %>
  14
  15 <TR>
  16   <TD>Enter prepaid card: </TD>
  17   <TD><INPUT TYPE="text" NAME="prepaid" VALUE="<% $prepaid %>"></TD>
  18 </TR>
  19
  20 </TABLE>
  21
  22 <BR>
  23 <INPUT TYPE="submit" NAME="submit" VALUE="Recharge">
  24
  25 </FORM>
  26 </BODY>
  27 </HTML>
  28
  29 <%init>
  30 my($svcnum, $cust_svc, $label, $value, $prepaid);
  31 if ( $cgi->param('error') ) {
  32   $svcnum        = $cgi->param('svcnum');
  33   $prepaid       = $cgi->param('prepaid');
  34 } elsif ( $cgi->param('svcnum') =~ /^(\d+)$/ ) {
  35   $svcnum  = $1;
  36 } else {
  37   die "illegal query ". $cgi->keywords;
  38 }
  39
  40 my $title = 'Recharge Service';
  41
  42 $cust_svc = qsearchs('cust_svc', {'svcnum' => $svcnum});
  43 die "No such service: $svcnum" unless $cust_svc;
  44
  45 ($label, $value) = $cust_svc->label;
  46
  47 </%init>
  48