X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_bill_pay.cgi;h=b6a0647682a9aa26fd237f3fb563798f7c4c72bc;hb=9d55204f876f52e314076f5fa9d1ae15a1639dae;hp=46ca51e82b649124117bc362d11f7724ac51cf4a;hpb=355fe2160a24311e5d1faab56376c9a0781c6479;p=freeside.git diff --git a/httemplate/edit/cust_bill_pay.cgi b/httemplate/edit/cust_bill_pay.cgi index 46ca51e82..b6a064768 100755 --- a/httemplate/edit/cust_bill_pay.cgi +++ b/httemplate/edit/cust_bill_pay.cgi @@ -1,109 +1,86 @@ -<% -# +<% include('/elements/header-popup.html', 'Apply Payment') %> -use strict; -use vars qw( $cgi $query $custnum $paynum $amount $invnum $p1 $otaker $cust_pay ); -use CGI; -use CGI::Carp qw(fatalsToBrowser); -use Date::Format; -use FS::UID qw(cgisuidsetup getotaker); -use FS::CGI qw(header popurl); -use FS::Record qw(qsearch fields); -use FS::cust_pay; -use FS::cust_bill; +<% include('/elements/error.html') %> +
+ +<% include('/elements/footer.html') %> + +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('Apply payment'); + +my($paynum, $amount, $invnum); if ( $cgi->param('error') ) { $paynum = $cgi->param('paynum'); $amount = $cgi->param('amount'); $invnum = $cgi->param('invnum'); } else { - ($query) = $cgi->keywords; + my($query) = $cgi->keywords; $query =~ /^(\d+)$/; $paynum = $1; $amount = ''; $invnum = ''; } -$otaker = getotaker; - -$p1 = popurl(1); +my $otaker = getotaker; -print header("Apply Payment", ''); -print qq!Error: !, $cgi->param('error'), - "