%
%
%my $conf = new FS::Conf;
%
%my %payby = (
% 'BILL' => 'Check',
% 'CASH' => 'Cash',
% 'WEST' => 'Western Union',
% 'MCRD' => 'Manual credit card',
%);
%
%my($link, $linknum, $paid, $payby, $payinfo, $_date);
%if ( $cgi->param('error') ) {
% $link = $cgi->param('link');
% $linknum = $cgi->param('linknum');
% $paid = $cgi->param('paid');
% $payby = $cgi->param('payby');
% $payinfo = $cgi->param('payinfo');
% $_date = $cgi->param('_date') ? str2time($cgi->param('_date')) : time;
%} elsif ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
% $link = $cgi->param('popup') ? 'popup' : 'custnum';
% $linknum = $1;
% $paid = '';
% $payby = $cgi->param('payby') || 'BILL';
% $payinfo = '';
% $_date = time;
%} elsif ( $cgi->param('invnum') =~ /^(\d+)$/ ) {
% $link = 'invnum';
% $linknum = $1;
% $paid = '';
% $payby = $cgi->param('payby') || 'BILL';
% $payinfo = "";
% $_date = time;
%} else {
% die "illegal query ". $cgi->keywords;
%}
%
%my $paybatch = "webui-$_date-$$-". rand() * 2**32;
%
%my $title = 'Post '. $payby{$payby}. ' payment';
%$title .= " against Invoice #$linknum" if $link eq 'invnum';
%
%if ( $link eq 'popup' ) {
%
%
<% include('/elements/header-popup.html', $title ) %>
% } else {
<% include("/elements/header.html", $title, '') %>
% }
% if ( $cgi->param('error') ) {
Error: <% $cgi->param('error') %>
% }