diff options
author | ivan <ivan> | 2011-12-07 04:49:20 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-12-07 04:49:20 +0000 |
commit | 71d417238c392886be01ac93896399c3dbfa2e16 (patch) | |
tree | 47d9f0319eca0dd9f4b038168792c9658b2f1907 /httemplate/misc | |
parent | f072467021f7d677cfe7a5d1aed2e9c899c9d71a (diff) |
add usernum to cust_main-custom_link, RT#15475
Diffstat (limited to 'httemplate/misc')
-rw-r--r-- | httemplate/misc/custom_link_proxy.cgi | 5 |
1 files changed, 3 insertions, 2 deletions
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'); |