X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=httemplate%2Fedit%2Fcust_pay.cgi;h=5d74365e7223bc418034230cfe0a3afe15501edb;hb=e80770898cc86365b335845dd1a02b4d82bd7e40;hp=7f70802c3b375b7449270f2f6bbc23a6098179ee;hpb=d0f483f47168e01eb6c28e8fc99a62050b245132;p=freeside.git diff --git a/httemplate/edit/cust_pay.cgi b/httemplate/edit/cust_pay.cgi index 7f70802c3..5d74365e7 100755 --- a/httemplate/edit/cust_pay.cgi +++ b/httemplate/edit/cust_pay.cgi @@ -1,133 +1,182 @@ -<% -# - -use strict; -use vars qw( $cgi $link $linknum $p1 $_date $payby $payinfo $paid ); -use Date::Format; -use CGI; -use CGI::Carp qw(fatalsToBrowser); -use FS::Conf; -use FS::UID qw(cgisuidsetup); -use FS::CGI qw(header popurl ntable small_custview); +% if ( $link eq 'popup' ) { + <& /elements/header-popup.html, $title &> +% } else { + <& /elements/header.html, $title, '' &> +% } -my $conf = new FS::Conf; +<& /elements/init_calendar.html &> -$cgi = new CGI; -cgisuidsetup($cgi); +<& /elements/error.html &> -if ( $cgi->param('error') ) { - $link = $cgi->param('link'); - $linknum = $cgi->param('linknum'); - $paid = $cgi->param('paid'); - $payby = $cgi->param('payby'); - $payinfo = $cgi->param('payinfo'); -} elsif ($cgi->keywords) { - my($query) = $cgi->keywords; - $query =~ /^(\d+)$/; - $link = 'invnum'; - $linknum = $1; - $paid = ''; - $payby = 'BILL'; - $payinfo = ""; -} elsif ( $cgi->param('custnum') =~ /^(\d+)$/ ) { - $link = 'custnum'; - $linknum = $1; - $paid = ''; - $payby = 'BILL'; - $payinfo = ''; -} else { - die "illegal query ". $cgi->keywords; -} -$_date = time; +% unless ( $link eq 'popup' ) { + <% small_custview($custnum, $conf->config('countrydefault')) %> +% } -$p1 = popurl(1); -print header("Post payment", ''); +
-} elsif ( $link eq 'custnum' ) { - $custnum = $linknum; -} +% if ( $link eq 'popup' ) { +