X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fmisc%2Fcustom_link_proxy.cgi;h=f3c6e376eff32f79bf48864203147e03b790f0ed;hb=d7a9f5c6dbf89aa85c281578bb553e04a573cbd0;hp=417fcebae3d8fedbcaa67bf1b50c556ea25e6a2e;hpb=f63936fb0404dc44fc8d3aa45c4edd4fa6670821;p=freeside.git diff --git a/httemplate/misc/custom_link_proxy.cgi b/httemplate/misc/custom_link_proxy.cgi index 417fcebae..f3c6e376e 100644 --- a/httemplate/misc/custom_link_proxy.cgi +++ b/httemplate/misc/custom_link_proxy.cgi @@ -14,15 +14,16 @@ my $conf = new FS::Conf; my $url = $conf->config('cust_main-custom_link'); my $agentnum = $cust_main->agentnum; +my $curuser = $FS::CurrentUser::CurrentUser; +my $usernum = $curuser->usernum; # like eval(qq("$url")) but with fewer things that can go wrong # and if $custnum isn't mentioned, assume it goes at the end $url =~ s/\$custnum/$custnum/ or $url .= $custnum; $url =~ s/\$agentnum/$agentnum/; +$url =~ s/\$usernum/$usernum/; #warn $url; -my $curuser = $FS::CurrentUser::CurrentUser; - die "access denied" unless $curuser->access_right('View customer');