one-time credit card and ACH payments (like self-service) closes: Bug#648

1 files changed, 209 insertions, 0 deletions

diff --git a/httemplate/misc/payment.cgi b/httemplate/misc/payment.cgi
new file mode 100644
index 000000000..bf89a3da7
--- /dev/null
+++ b/httemplate/misc/payment.cgi
@@ -0,0 +1,209 @@
+<%
+   my %type = ( 'CARD' => 'credit card',
+                'CHEK' => 'electronic check (ACH)',
+              );
+
+   $cgi->param('payby') =~ /^(CARD|CHEK)$/
+     or die "unknown payby ". $cgi->param('payby');
+   my $payby = $1;
+
+   $cgi->param('custnum') =~ /^(\d+)$/
+     or die "illegal custnum ". $cgi->param('custnum');
+   my $custnum = $1;
+
+   my $cust_main = qsearchs( 'cust_main', { 'custnum'=>$custnum } );
+   die "unknown custnum $custnum" unless $cust_main;
+
+   my $balance = $cust_main->balance;
+
+   my $payinfo = '';
+
+   #false laziness w/selfservice make_payment.html shortcut for one-country
+   my $conf = new FS::Conf;
+   my %states = map { $_->state => 1 }
+                  qsearch('cust_main_county', {
+                    'country' => $conf->config('defaultcountry') || 'US'
+                  } );
+   my @states = sort { $a cmp $b } keys %states;
+
+   my $paybatch = "webui-payment-". time. "-$$-". rand() * 2**32;
+
+%>
+<%= include( '/elements/header.html', "Process $type{$payby} payment" ) %>
+<%= include( '/elements/small_custview.html', $cust_main ) %>
+<FORM NAME="OneTrueForm" ACTION="process/payment.cgi" METHOD="POST" onSubmit="document.OneTrueForm.process.disabled=true">
+<INPUT TYPE="hidden" NAME="custnum" VALUE="<%= $custnum %>">
+<INPUT TYPE="hidden" NAME="payby" VALUE="<%= $payby %>">
+<INPUT TYPE="hidden" NAME="paybatch" VALUE="<%= $paybatch %>">
+<SCRIPT>
+var mywindow = -1;
+function myopen(filename,windowname,properties) {
+  myclose();
+  mywindow = window.open(filename,windowname,properties);
+}
+function myclose() {
+  if ( mywindow != -1 )
+    mywindow.close();
+  mywindow = -1;
+}
+var achwindow = -1;
+function achopen(filename,windowname,properties) {
+  achclose();
+  achwindow = window.open(filename,windowname,properties);
+}
+function achclose() {
+  if ( achwindow != -1 )
+    achwindow.close();
+  achwindow = -1;
+}
+</SCRIPT>
+<% #include( '/elements/table.html', '#cccccc' ) %>
+<%= ntable('#cccccc') %>
+  <TR>
+    <TD ALIGN="right">Payment amount</TD>
+    <TD>
+      <TABLE><TR><TD BGCOLOR="#ffffff">
+        $<INPUT TYPE="text" NAME="amount" SIZE=8 VALUE="<%= $balance > 0 ? sprintf("%.2f", $balance) : '' %>">
+      </TD></TR></TABLE>
+    </TD>
+  </TR>
+<% if ( $payby eq 'CARD' ) {
+     my( $payinfo, $paycvv, $month, $year ) = ( '', '', '', '' );
+     my $payname = $cust_main->first. ' '. $cust_main->getfield('last');
+     my $address1 = $cust_main->address1;
+     my $address2 = $cust_main->address2;
+     my $city     = $cust_main->city;
+     my $state    = $cust_main->state;
+     my $zip     = $cust_main->zip;
+     if ( $cust_main->payby =~ /^(CARD|DCRD)$/ ) {
+       $payinfo = $cust_main->payinfo;
+       $paycvv = $cust_main->paycvv;
+       ( $month, $year ) = $cust_main->paydate_monthyear;
+       $payname = $cust_main->payname if $cust_main->payname;
+     }
+%>
+  <TR>
+    <TD ALIGN="right">Card&nbsp;number</TD>
+    <TD>
+      <TABLE>
+        <TR>
+          <TD>
+            <INPUT TYPE="text" NAME="payinfo" SIZE=20 MAXLENGTH=19 VALUE="<%=$payinfo%>"> </TD>
+          <TD>Exp.</TD>
+          <TD>
+            <SELECT NAME="month">
+              <% for ( ( map "0$_", 1 .. 9 ), 11, 12 ) { %>
+                <OPTION<%= $_ eq $month ? ' SELECTED' : '' %>><%= $_ %>
+              <% } %>
+            </SELECT>
+          </TD>
+          <TD> / </TD>
+          <TD>
+            <SELECT NAME="year">
+              <% my @a = localtime; for ( $a[5]+1900 .. $a[5]+1915 ) { %>
+                <OPTION<%= $_ eq $year ? ' SELECTED' : '' %>><%= $_ %>
+              <% } %>
+            </SELECT>
+          </TD>
+        </TR>
+      </TABLE>
+    </TD>
+  </TR>
+  <TR>
+    <TD ALIGN="right">CVV2</TD>
+    <TD><INPUT TYPE="text" NAME="paycvv" VALUE="<%= $paycvv %>" SIZE=4 MAXLENGTH=4>
+        (<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>)
+    </TD>
+  </TR>
+  <TR>
+    <TD ALIGN="right">Exact&nbsp;name&nbsp;on&nbsp;card</TD>
+    <TD><INPUT TYPE="text" SIZE=32 MAXLENGTH=80 NAME="payname" VALUE="<%=$payname%>"></TD>
+  </TR><TR>
+    <TD ALIGN="right">Card&nbsp;billing&nbsp;address</TD>
+    <TD>
+      <INPUT TYPE="text" SIZE=40 MAXLENGTH=80 NAME="address1" VALUE="<%=$address1%>">
+    </TD>
+  </TR><TR>
+    <TD ALIGN="right">Address&nbsp;line&nbsp;2</TD>
+    <TD>
+      <INPUT TYPE="text" SIZE=40 MAXLENGTH=80 NAME="address2" VALUE="<%=$address2%>">
+    </TD>
+  </TR><TR>
+    <TD ALIGN="right">City</TD>
+    <TD>
+      <TABLE>
+        <TR>
+          <TD>
+            <INPUT TYPE="text" NAME="city" SIZE="12" MAXLENGTH=80 VALUE="<%=$city%>">
+          </TD>
+          <TD>State</TD>
+          <TD>
+            <SELECT NAME="state">
+              <% for ( @states ) { %>
+                <OPTION<%= $_ eq $state ? ' SELECTED' : '' %>><%= $_ %> 
+              <% } %>
+            </SELECT>
+          </TD>
+          <TD>Zip</TD>
+          <TD>
+            <INPUT TYPE="text" NAME="zip" SIZE=11 MAXLENGTH=10 VALUE="<%=$zip%>">
+          </TD>
+        </TR>
+      </TABLE>
+    </TD>
+  </TR>
+
+<% } elsif ( $payby eq 'CHEK' ) {
+     my( $payinfo1, $payinfo2, $payname, $ss ) = ( '', '', '', '' );
+     if ( $cust_main->payby =~ /^(CHEK|DCHK)$/ ) {
+       $cust_main->payinfo =~ /^(\d+)\@(\d+)$/
+         or die "unparsable payinfo ". $cust_main->payinfo;
+       ($payinfo1, $payinfo2) = ($1, $2);
+       $payname = $cust_main->payname;
+       $ss = $cust_main->ss;
+     }
+%>
+  <INPUT TYPE="hidden" NAME="month" VALUE="12">
+  <INPUT TYPE="hidden" NAME="year" VALUE="2037">
+  <TR>
+    <TD ALIGN="right">Account&nbsp;number</TD>
+    <TD><INPUT TYPE="text" SIZE=10 NAME="payinfo1" VALUE="<%=$payinfo1%>"></TD>
+  </TR>
+  <TR>
+    <TD ALIGN="right">ABA/Routing&nbsp;number</TD>
+    <TD>
+      <INPUT TYPE="text" SIZE=10 MAXLENGTH=9 NAME="payinfo2" VALUE="<%=$payinfo2%>">
+      (<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>)
+    </TD>
+  </TR>
+  <TR>
+    <TD ALIGN="right">Bank&nbsp;name</TD>
+    <TD><INPUT TYPE="text" NAME="payname" VALUE="<%=$payname%>"></TD>
+  </TR>
+  <TR>
+    <TD ALIGN="right">
+      Account&nbsp;holder<BR>
+      Social&nbsp;security&nbsp;or&nbsp;tax&nbspID&nbsp;#
+    </TD>
+    <TD><INPUT TYPE="text" NAME="ss" VALUE="<%=$ss%>"></TD>
+  </TR>
+
+<% } %>
+
+<TR>
+  <TD COLSPAN=2>
+    <INPUT TYPE="checkbox" CHECKED NAME="save" VALUE="1">
+    Remember this information
+  </TD>
+</TR><TR>
+  <TD COLSPAN=2>
+    <INPUT TYPE="checkbox"<%= $payby eq 'CARD' ? ' CHECKED' : '' %> NAME="auto" VALUE="1" onClick="if (this.checked) { document.OneTrueForm.save.checked=true; }">
+    Charge future payments to this <%= $type{$payby} %> automatically
+  </TD>
+</TR>
+</TABLE>
+<BR>
+<INPUT TYPE="submit" NAME="process" VALUE="Process payment">
+</FORM>
+</BODY>
+</HTML>