X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fmisc%2Fcustom_link_proxy.cgi;h=db9a048be5339dd21283c33e2f84fc8d0acd3f6b;hp=417fcebae3d8fedbcaa67bf1b50c556ea25e6a2e;hb=2eea268a59cf357853e31ff8d5db6033e4bdc8ea;hpb=a4c7ef67a9ca3c473c48f7176865408e619933d0

diff --git a/httemplate/misc/custom_link_proxy.cgi b/httemplate/misc/custom_link_proxy.cgi
index 417fcebae..db9a048be 100644
--- a/httemplate/misc/custom_link_proxy.cgi
+++ b/httemplate/misc/custom_link_proxy.cgi
@@ -14,15 +14,18 @@ my $conf = new FS::Conf;
 my $url = $conf->config('cust_main-custom_link');
 
 my $agentnum = $cust_main->agentnum;
+my $agent_custid = $cust_main->agent_custid;
+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/\$agent_custid/$agent_custid/;
+$url =~ s/\$usernum/$usernum/;
 
 #warn $url;
 
-my $curuser = $FS::CurrentUser::CurrentUser;
-
 die "access denied"
   unless $curuser->access_right('View customer');