diff options
| author | ivan <ivan> | 2008-03-27 20:20:04 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-03-27 20:20:04 +0000 |
| commit | 16e3c5c8f915ec69b17a007b65e9fd72fe5ab75f (patch) | |
| tree | f616e117c2d102e2f9b665c0a8519f145b445324 | |
| parent | 58275a5d7fbcfd51fe70ac864c3f21917ad7fe0c (diff) | |
resolve minor ACL glitch linking to payments
| -rwxr-xr-x | httemplate/search/cust_pay.cgi | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/httemplate/search/cust_pay.cgi b/httemplate/search/cust_pay.cgi index e5465aee8..80a611d97 100755 --- a/httemplate/search/cust_pay.cgi +++ b/httemplate/search/cust_pay.cgi @@ -235,7 +235,10 @@ if ( $cgi->param('magic') ) { } -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; |