diff options
| -rw-r--r-- | FS/FS/UI/Web.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/FS/FS/UI/Web.pm b/FS/FS/UI/Web.pm index 98d812d5e..2e9261bc0 100644 --- a/FS/FS/UI/Web.pm +++ b/FS/FS/UI/Web.pm @@ -138,6 +138,10 @@ sub svc_label_link { sub svc_X_link { my ($x, $m, $part_svc, $cust_svc) = @_ or return ''; + + return $x + unless $FS::CurrentUser::CurrentUser->access_right('View customer services'); + my $ahref = svc_url( 'ahref' => 1, 'm' => $m, @@ -149,6 +153,7 @@ sub svc_X_link { "$ahref$x</A>"; } +#this probably needs an ACL too... sub svc_export_links { my ($m, $part_svc, $cust_svc) = @_ or return ''; |