diff options
| author | ivan <ivan> | 2007-01-02 21:46:33 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2007-01-02 21:46:33 +0000 |
| commit | 7c654c2d085070a605fd14d1f86558880efca0ab (patch) | |
| tree | 3854191fb7f1b042ea63e70b014ad7552dbbb865 /FS | |
| parent | 129766f1fe5dd7e8d77133747c252baf8cff3962 (diff) | |
fix service searching & links
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/UI/Web.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/UI/Web.pm b/FS/FS/UI/Web.pm index 3348d670e..15ec1a730 100644 --- a/FS/FS/UI/Web.pm +++ b/FS/FS/UI/Web.pm @@ -81,6 +81,8 @@ passed as a list of name-value pairs, and include: # 'svcdb' => 'svc_table', # # 'query' => #optional query string + # # (pass a blank string if you want a "raw" URL to add your + # # own svcnum to) # #OR # 'svc' => $svc_x, #or $cust_svc, it just needs a svcnum # @@ -107,7 +109,7 @@ sub svc_url { my $generic = $opt{action} eq 'search' ? 'cust_svc' : 'svc_Common'; $url = "$generic.html?svcdb=$svcdb;"; - $url .= 'svcnum=' if $query =~ /^\d+(;|$)/; + $url .= 'svcnum=' if $query =~ /^\d+(;|$)/ or $query eq ''; } my $p = popurl(2); #? |