<% my $conf = new FS::Conf; my($link, $linknum, $paid, $payby, $payinfo, $quickpay); if ( $cgi->param('error') ) { $link = $cgi->param('link'); $linknum = $cgi->param('linknum'); $paid = $cgi->param('paid'); $payby = $cgi->param('payby'); $payinfo = $cgi->param('payinfo'); $quickpay = $cgi->param('quickpay'); } elsif ($cgi->keywords) { my($query) = $cgi->keywords; $query =~ /^(\d+)$/; $link = 'invnum'; $linknum = $1; $paid = ''; $payby = 'BILL'; $payinfo = ""; $quickpay = ''; } elsif ( $cgi->param('custnum') =~ /^(\d+)$/ ) { $link = 'custnum'; $linknum = $1; $paid = ''; $payby = 'BILL'; $payinfo = ''; $quickpay = $cgi->param('quickpay'); } else { die "illegal query ". $cgi->keywords; } my $_date = time; my $paybatch = "webui-$_date-$$-". rand() * 2**32; my $p1 = popurl(1); print header("Post payment", ''); print qq!Error: !, $cgi->param('error'), "

" if $cgi->param('error'); print < END my $custnum; if ( $link eq 'invnum' ) { my $cust_bill = qsearchs('cust_bill', { 'invnum' => $linknum } ) or die "unknown invnum $linknum"; print "Invoice #$linknum". ntable("#cccccc",2). 'Date'. time2str("%D", $cust_bill->_date). ''. 'Items'; foreach ( $cust_bill->cust_bill_pkg ) { #false laziness with FS::cust_bill if ( $_->pkgnum ) { my($cust_pkg)=qsearchs('cust_pkg', { 'pkgnum', $_->pkgnum } ); my($part_pkg)=qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->pkgpart}); my($pkg)=$part_pkg->pkg; if ( $_->setup != 0 ) { print "$pkg Setup
"; # $money_char. sprintf("%10.2f",$_->setup); print join('
', map { " ". $_->[0]. ": ". $_->[1] } $cust_pkg->labels ). '
'; } if ( $_->recur != 0 ) { print "$pkg (" . time2str("%x",$_->sdate) . " - " . time2str("%x",$_->edate) . ")
"; #$money_char. sprintf("%10.2f",$_->recur) print join('
', map { '--->'. $_->[0]. ": ". $_->[1] } $cust_pkg->labels ). '
'; } } else { #pkgnum Tax print "Tax
" # $money_char. sprintf("%10.2f",$_->setup) if $_->setup != 0; } } print '

'; $custnum = $cust_bill->custnum; } elsif ( $link eq 'custnum' ) { $custnum = $linknum; } print small_custview($custnum, $conf->config('countrydefault')); print qq!!; print qq!!; print '

Payment'. ntable("#cccccc", 2). 'Date'. time2str("%D",$_date). ''; print qq!Amount\$!; print qq!Payby$payby!; #payinfo (check # now as payby="BILL" hardcoded.. what to do later?) print qq!Check #!; print qq!Auto-apply
to invoices!; print ""; #paybatch print qq!!; print < END %>