X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fmisc%2Fpayment.cgi;h=f30e4098e8744f9350bbefb973e1916348111dbc;hb=05dee44cdb4e93df6963ae396f916705c4086f86;hp=4c6ae33499a3df23bb0c47a9b9ee5d185db4352c;hpb=c8cccb4a92adceb943c635fe62dad0d034462ce0;p=freeside.git
diff --git a/httemplate/misc/payment.cgi b/httemplate/misc/payment.cgi
index 4c6ae3349..f30e4098e 100644
--- a/httemplate/misc/payment.cgi
+++ b/httemplate/misc/payment.cgi
@@ -1,207 +1,370 @@
-%
-% 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('countrydefault') || 'US'
-% } );
-% my @states = sort { $a cmp $b } keys %states;
-%
-% my $paybatch = "webui-payment-". time. "-$$-". rand() * 2**32;
-%
-%
+<& /elements/header.html, mt("Process [_1] payment",$type{$payby}) &>
+<& /elements/small_custview.html, $cust_main, '', '', popurl(2) . "view/cust_main.cgi" &>
+
-<% include( '/elements/header.html', "Process $type{$payby} payment" ) %>
-<% include( '/elements/small_custview.html', $cust_main ) %>