[freeside-commits] freeside/httemplate/search cust_pay.cgi, 1.30.2.3, 1.30.2.4

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/httemplate/search
In directory wavetail.420.am:/tmp/cvs-serv26205/search

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	cust_pay.cgi 
Log Message:
resolve minor ACL glitch linking to payments

Index: cust_pay.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/search/cust_pay.cgi,v
retrieving revision 1.30.2.3
retrieving revision 1.30.2.4
diff -u -d -r1.30.2.3 -r1.30.2.4
--- cust_pay.cgi	14 Feb 2008 03:54:13 -0000	1.30.2.3
+++ cust_pay.cgi	27 Mar 2008 20:20:04 -0000	1.30.2.4
@@ -235,7 +235,10 @@
 
 }
 
-my $link = [ "${p}view/cust_pay.html?paynum=", 'paynum' ];
+my $link = '';
+$link = [ "${p}view/cust_pay.html?paynum=", 'paynum' ]
+  if $FS::CurrentUser::CurrentUser->access_right('View invoices'); #XXX for now
+  #later# if $FS::CurrentUser::CurrentUser->access_right('View customer payments');
 
 my $cust_link = sub {
   my $cust_pay = shift;