X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_pay.cgi;h=888335fbb54b23c3a172ff2c1aacdb43698157da;hb=3ece1c396f23e04cd659f1085f6eeee8bdfd846f;hp=2794e2218fdbee00a7694b1fd031ebca0857712e;hpb=1fd6d8cf5d7854860ef4fd10ed89828e0c04ec39;p=freeside.git
diff --git a/httemplate/edit/cust_pay.cgi b/httemplate/edit/cust_pay.cgi
index 2794e2218..888335fbb 100755
--- a/httemplate/edit/cust_pay.cgi
+++ b/httemplate/edit/cust_pay.cgi
@@ -1,126 +1,180 @@
-
-<%
+% if ( $link eq 'popup' ) {
+ <& /elements/header-popup.html, $title &>
+% } else {
+ <& /elements/header.html, $title, '' &>
+% }
-my $conf = new FS::Conf;
+<& /elements/init_calendar.html &>
-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;
+<& /elements/error.html &>
-my $p1 = popurl(1);
-print header("Post payment", '');
+% unless ( $link eq 'popup' ) {
+ <% small_custview($custnum, $conf->config('countrydefault')) %>
+% }
-print qq!Error: !, $cgi->param('error'),
- "
"
- if $cgi->param('error');
+