X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fsearch%2Fsvc_external.cgi;h=2710d75bc5f093b06ca6a56888d56a6811adc5a2;hb=e68a2c760a79d6085f12be9add138067c9935074;hp=5502bfc257dca7779bff9587f0aa27276e7d9fb0;hpb=633c48448d9468690b7ad77eb6ff7c660a286658;p=freeside.git

diff --git a/httemplate/search/svc_external.cgi b/httemplate/search/svc_external.cgi
index 5502bfc25..2710d75bc 100755
--- a/httemplate/search/svc_external.cgi
+++ b/httemplate/search/svc_external.cgi
@@ -1,3 +1,6 @@
+%die "access denied"
+%  unless $FS::CurrentUser::CurrentUser->access_right('List services');
+%
 %my $conf = new FS::Conf;
 %
 %my @svc_external = ();