<%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;