X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Fcust_credit_bill.cgi;h=d3847dc407f4c7606a3333bde3e4e41985abae4c;hb=3ece1c396f23e04cd659f1085f6eeee8bdfd846f;hp=c0f34ae5b0a183eb8a6bd237dcbdcd0d8c015931;hpb=d7977d0a346e3e5975c44a75b915bb437be66f4f;p=freeside.git

diff --git a/httemplate/edit/process/cust_credit_bill.cgi b/httemplate/edit/process/cust_credit_bill.cgi
index c0f34ae5b..d3847dc40 100755
--- a/httemplate/edit/process/cust_credit_bill.cgi
+++ b/httemplate/edit/process/cust_credit_bill.cgi
@@ -10,4 +10,10 @@
 die "access denied"
   unless $FS::CurrentUser::CurrentUser->access_right('Apply credit');
 
+if ( $cgi->param('src_amount') ) {
+  die "access denied"
+    unless ( $FS::CurrentUser::CurrentUser->access_right('Post credit') &&
+           $FS::CurrentUser::CurrentUser->access_right('Delete credit') );
+}
+
 </%init>