diff options
Diffstat (limited to 'httemplate/misc/custom_link_proxy.cgi')
| -rw-r--r-- | httemplate/misc/custom_link_proxy.cgi | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/httemplate/misc/custom_link_proxy.cgi b/httemplate/misc/custom_link_proxy.cgi index e5934e4a6..417fcebae 100644 --- a/httemplate/misc/custom_link_proxy.cgi +++ b/httemplate/misc/custom_link_proxy.cgi @@ -11,7 +11,14 @@ my $cust_main = qsearchs('cust_main', { custnum => $custnum } ) or die "custnum '$custnum' not found"; # just check for existence my $conf = new FS::Conf; -my $url = $conf->config('cust_main-custom_link') . $cust_main->custnum; +my $url = $conf->config('cust_main-custom_link'); + +my $agentnum = $cust_main->agentnum; +# 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/; + #warn $url; my $curuser = $FS::CurrentUser::CurrentUser; |