projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
bd7f30d
)
don't link to customer service view unless the user has the ACL to view the resulting...
author
ivan
<ivan>
Sat, 6 Sep 2008 20:54:24 +0000
(20:54 +0000)
committer
ivan
<ivan>
Sat, 6 Sep 2008 20:54:24 +0000
(20:54 +0000)
FS/FS/UI/Web.pm
patch
|
blob
|
history
diff --git
a/FS/FS/UI/Web.pm
b/FS/FS/UI/Web.pm
index
98d812d
..
2e9261b
100644
(file)
--- 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 '';