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,
"$ahref$x</A>";
}
+#this probably needs an ACL too...
sub svc_export_links {
my ($m, $part_svc, $cust_svc) = @_ or return '';