httemplate/misc/payment.cgi

   1 <%
   2    my %type = ( 'CARD' => 'credit card',
   3                 'CHEK' => 'electronic check (ACH)',
   4               );
   5
   6    $cgi->param('payby') =~ /^(CARD|CHEK)$/
   7      or die "unknown payby ". $cgi->param('payby');
   8    my $payby = $1;
   9
  10    $cgi->param('custnum') =~ /^(\d+)$/
  11      or die "illegal custnum ". $cgi->param('custnum');
  12    my $custnum = $1;
  13
  14    my $cust_main = qsearchs( 'cust_main', { 'custnum'=>$custnum } );
  15    die "unknown custnum $custnum" unless $cust_main;
  16
  17    my $balance = $cust_main->balance;
  18
  19    my $payinfo = '';
  20
  21    #false laziness w/selfservice make_payment.html shortcut for one-country
  22    my $conf = new FS::Conf;
  23    my %states = map { $_->state => 1 }
  24                   qsearch('cust_main_county', {
  25                     'country' => $conf->config('defaultcountry') || 'US'
  26                   } );
  27    my @states = sort { $a cmp $b } keys %states;
  28
  29    my $paybatch = "webui-payment-". time. "-$$-". rand() * 2**32;
  30
  31 %>
  32 <%= include( '/elements/header.html', "Process $type{$payby} payment" ) %>
  33 <%= include( '/elements/small_custview.html', $cust_main ) %>
  34 <FORM NAME="OneTrueForm" ACTION="process/payment.cgi" METHOD="POST" onSubmit="document.OneTrueForm.process.disabled=true">
  35 <INPUT TYPE="hidden" NAME="custnum" VALUE="<%= $custnum %>">
  36 <INPUT TYPE="hidden" NAME="payby" VALUE="<%= $payby %>">
  37 <INPUT TYPE="hidden" NAME="paybatch" VALUE="<%= $paybatch %>">
  38 <SCRIPT>
  39 var mywindow = -1;
  40 function myopen(filename,windowname,properties) {
  41   myclose();
  42   mywindow = window.open(filename,windowname,properties);
  43 }
  44 function myclose() {
  45   if ( mywindow != -1 )
  46     mywindow.close();
  47   mywindow = -1;
  48 }
  49 var achwindow = -1;
  50 function achopen(filename,windowname,properties) {
  51   achclose();
  52   achwindow = window.open(filename,windowname,properties);
  53 }
  54 function achclose() {
  55   if ( achwindow != -1 )
  56     achwindow.close();
  57   achwindow = -1;
  58 }
  59 </SCRIPT>
  60 <% #include( '/elements/table.html', '#cccccc' ) %>
  61 <%= ntable('#cccccc') %>
  62   <TR>
  63     <TD ALIGN="right">Payment amount</TD>
  64     <TD>
  65       <TABLE><TR><TD BGCOLOR="#ffffff">
  66         $<INPUT TYPE="text" NAME="amount" SIZE=8 VALUE="<%= $balance > 0 ? sprintf("%.2f", $balance) : '' %>">
  67       </TD></TR></TABLE>
  68     </TD>
  69   </TR>
  70 <% if ( $payby eq 'CARD' ) {
  71      my( $payinfo, $paycvv, $month, $year ) = ( '', '', '', '' );
  72      my $payname = $cust_main->first. ' '. $cust_main->getfield('last');
  73      my $address1 = $cust_main->address1;
  74      my $address2 = $cust_main->address2;
  75      my $city     = $cust_main->city;
  76      my $state    = $cust_main->state;
  77      my $zip     = $cust_main->zip;
  78      if ( $cust_main->payby =~ /^(CARD|DCRD)$/ ) {
  79        $payinfo = $cust_main->payinfo;
  80        $paycvv = $cust_main->paycvv;
  81        ( $month, $year ) = $cust_main->paydate_monthyear;
  82        $payname = $cust_main->payname if $cust_main->payname;
  83      }
  84 %>
  85   <TR>
  86     <TD ALIGN="right">Card&nbsp;number</TD>
  87     <TD>
  88       <TABLE>
  89         <TR>
  90           <TD>
  91             <INPUT TYPE="text" NAME="payinfo" SIZE=20 MAXLENGTH=19 VALUE="<%=$payinfo%>"> </TD>
  92           <TD>Exp.</TD>
  93           <TD>
  94             <SELECT NAME="month">
  95               <% for ( ( map "0$_", 1 .. 9 ), 11, 12 ) { %>
  96                 <OPTION<%= $_ eq $month ? ' SELECTED' : '' %>><%= $_ %>
  97               <% } %>
  98             </SELECT>
  99           </TD>
 100           <TD> / </TD>
 101           <TD>
 102             <SELECT NAME="year">
 103               <% my @a = localtime; for ( $a[5]+1900 .. $a[5]+1915 ) { %>
 104                 <OPTION<%= $_ eq $year ? ' SELECTED' : '' %>><%= $_ %>
 105               <% } %>
 106             </SELECT>
 107           </TD>
 108         </TR>
 109       </TABLE>
 110     </TD>
 111   </TR>
 112   <TR>
 113     <TD ALIGN="right">CVV2</TD>
 114     <TD><INPUT TYPE="text" NAME="paycvv" VALUE="<%= $paycvv %>" SIZE=4 MAXLENGTH=4>
 115         (<A HREF="javascript:myopen('../docs/cvv2.html','cvv2','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=yes,copyhistory=no,width=480,height=288')">help</A>)
 116     </TD>
 117   </TR>
 118   <TR>
 119     <TD ALIGN="right">Exact&nbsp;name&nbsp;on&nbsp;card</TD>
 120     <TD><INPUT TYPE="text" SIZE=32 MAXLENGTH=80 NAME="payname" VALUE="<%=$payname%>"></TD>
 121   </TR><TR>
 122     <TD ALIGN="right">Card&nbsp;billing&nbsp;address</TD>
 123     <TD>
 124       <INPUT TYPE="text" SIZE=40 MAXLENGTH=80 NAME="address1" VALUE="<%=$address1%>">
 125     </TD>
 126   </TR><TR>
 127     <TD ALIGN="right">Address&nbsp;line&nbsp;2</TD>
 128     <TD>
 129       <INPUT TYPE="text" SIZE=40 MAXLENGTH=80 NAME="address2" VALUE="<%=$address2%>">
 130     </TD>
 131   </TR><TR>
 132     <TD ALIGN="right">City</TD>
 133     <TD>
 134       <TABLE>
 135         <TR>
 136           <TD>
 137             <INPUT TYPE="text" NAME="city" SIZE="12" MAXLENGTH=80 VALUE="<%=$city%>">
 138           </TD>
 139           <TD>State</TD>
 140           <TD>
 141             <SELECT NAME="state">
 142               <% for ( @states ) { %>
 143                 <OPTION<%= $_ eq $state ? ' SELECTED' : '' %>><%= $_ %>
 144               <% } %>
 145             </SELECT>
 146           </TD>
 147           <TD>Zip</TD>
 148           <TD>
 149             <INPUT TYPE="text" NAME="zip" SIZE=11 MAXLENGTH=10 VALUE="<%=$zip%>">
 150           </TD>
 151         </TR>
 152       </TABLE>
 153     </TD>
 154   </TR>
 155
 156 <% } elsif ( $payby eq 'CHEK' ) {
 157      my( $payinfo1, $payinfo2, $payname, $ss ) = ( '', '', '', '' );
 158      if ( $cust_main->payby =~ /^(CHEK|DCHK)$/ ) {
 159        $cust_main->payinfo =~ /^(\d+)\@(\d+)$/
 160          or die "unparsable payinfo ". $cust_main->payinfo;
 161        ($payinfo1, $payinfo2) = ($1, $2);
 162        $payname = $cust_main->payname;
 163        $ss = $cust_main->ss;
 164      }
 165 %>
 166   <INPUT TYPE="hidden" NAME="month" VALUE="12">
 167   <INPUT TYPE="hidden" NAME="year" VALUE="2037">
 168   <TR>
 169     <TD ALIGN="right">Account&nbsp;number</TD>
 170     <TD><INPUT TYPE="text" SIZE=10 NAME="payinfo1" VALUE="<%=$payinfo1%>"></TD>
 171   </TR>
 172   <TR>
 173     <TD ALIGN="right">ABA/Routing&nbsp;number</TD>
 174     <TD>
 175       <INPUT TYPE="text" SIZE=10 MAXLENGTH=9 NAME="payinfo2" VALUE="<%=$payinfo2%>">
 176       (<A HREF="javascript:achopen('../docs/ach.html','ach','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=yes,copyhistory=no,width=384,height=256')">help</A>)
 177     </TD>
 178   </TR>
 179   <TR>
 180     <TD ALIGN="right">Bank&nbsp;name</TD>
 181     <TD><INPUT TYPE="text" NAME="payname" VALUE="<%=$payname%>"></TD>
 182   </TR>
 183   <TR>
 184     <TD ALIGN="right">
 185       Account&nbsp;holder<BR>
 186       Social&nbsp;security&nbsp;or&nbsp;tax&nbspID&nbsp;#
 187     </TD>
 188     <TD><INPUT TYPE="text" NAME="ss" VALUE="<%=$ss%>"></TD>
 189   </TR>
 190
 191 <% } %>
 192
 193 <TR>
 194   <TD COLSPAN=2>
 195     <INPUT TYPE="checkbox" CHECKED NAME="save" VALUE="1">
 196     Remember this information
 197   </TD>
 198 </TR><TR>
 199   <TD COLSPAN=2>
 200     <INPUT TYPE="checkbox"<%= ( ( $payby eq 'CARD' && $cust_main->payby ne 'DCRD' ) || ( $payby eq 'CHEK' && $cust_main->payby eq 'CHEK' ) ) ? ' CHECKED' : '' %> NAME="auto" VALUE="1" onClick="if (this.checked) { document.OneTrueForm.save.checked=true; }">
 201     Charge future payments to this <%= $type{$payby} %> automatically
 202   </TD>
 203 </TR>
 204 </TABLE>
 205 <BR>
 206 <INPUT TYPE="submit" NAME="process" VALUE="Process payment">
 207 </FORM>
 208 </BODY>
 209 </HTML>