diff options
| author | Mark Wells <mark@freeside.biz> | 2015-08-14 16:32:21 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2015-08-14 16:32:21 -0700 |
| commit | 324209d9ea24ca2f6a6f387088263933c06e39df (patch) | |
| tree | e49da981760f3b485a0f6d7561a53c43337aa869 /httemplate/view/cust_svc.cgi | |
| parent | 039381569561964c572407409fe61f6d4da97afe (diff) | |
fix links from package report to services that use view/svc_Common, #37621
Diffstat (limited to 'httemplate/view/cust_svc.cgi')
| -rw-r--r-- | httemplate/view/cust_svc.cgi | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/httemplate/view/cust_svc.cgi b/httemplate/view/cust_svc.cgi index 8ccfce3ff..aaf367882 100644 --- a/httemplate/view/cust_svc.cgi +++ b/httemplate/view/cust_svc.cgi @@ -1,4 +1,4 @@ -<% $cgi->redirect(popurl(1)."$svcdb.cgi?". $svcnum ) %> +<% $cgi->redirect($url) %> <%init> #needed here? we're just redirecting. i guess it could reveal the svcdb of a @@ -18,6 +18,12 @@ my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } ); die "Unknown svcpart" unless $part_svc; my $svcdb = $part_svc->svcdb; +my $url = svc_url( + 'm' => $m, + 'action' => 'view', + 'svcdb' => $svcdb, + 'query' => $svcnum, + ); </%init> |