<%init>
die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Apply payment') #;
- || $FS::CurrentUser::CurrentUser->access_right('Post payment'): #remove after 1.7.3
+ unless $FS::CurrentUser::CurrentUser->access_right('Apply payment');
my($paynum, $amount, $invnum);
if ( $cgi->param('error') ) {
<%init>
die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Apply credit') #;
- || $FS::CurrentUser::CurrentUser->access_right('Post credit'): #remove after 1.7.3
+ unless $FS::CurrentUser::CurrentUser->access_right('Apply credit');
my($crednum, $amount, $invnum);
if ( $cgi->param('error') ) {
<%init>
die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Apply payment') #;
- || $FS::CurrentUser::CurrentUser->access_right('Post payment'): #remove after 1.7.3
+ unless $FS::CurrentUser::CurrentUser->access_right('Apply payment');
$cgi->param('paynum') =~ /^(\d*)$/ or die "Illegal paynum!";
my $paynum = $1;
<%init>
die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Apply credit') #;
- || $FS::CurrentUser::CurrentUser->access_right('Post credit'): #remove after 1.7.3
+ unless $FS::CurrentUser::CurrentUser->access_right('Apply credit');
$cgi->param('crednum') =~ /^(\d*)$/ or die "Illegal crednum!";
my $crednum = $1;