X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fmisc%2Fpayment.cgi;h=2c889d73b964be37ad1ec416c4695f291e96b4b0;hb=fca1ac5d298b3896c1c42c4ffc7bdd3bab9b8516;hp=4c6ae33499a3df23bb0c47a9b9ee5d185db4352c;hpb=3ce7691203a7737406bf2d4442f7fd84b81f847e;p=freeside.git diff --git a/httemplate/misc/payment.cgi b/httemplate/misc/payment.cgi index 4c6ae3349..2c889d73b 100644 --- a/httemplate/misc/payment.cgi +++ b/httemplate/misc/payment.cgi @@ -1,41 +1,9 @@ -% -% 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; -% -% - <% include( '/elements/header.html', "Process $type{$payby} payment" ) %> -<% include( '/elements/small_custview.html', $cust_main ) %> +<% include( '/elements/small_custview.html', $cust_main, '', '', popurl(2) . "view/cust_main.cgi" ) %>