[freeside-commits] freeside/FS/FS/UI Web.pm,1.20,1.21

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/UI
In directory wavetail:/tmp/cvs-serv3950/FS/FS/UI

Modified Files:
	Web.pm 
Log Message:
fix service searching & links

Index: Web.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/UI/Web.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- Web.pm	29 Dec 2006 08:51:32 -0000	1.20
+++ Web.pm	2 Jan 2007 21:46:33 -0000	1.21
@@ -81,6 +81,8 @@
   #  '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 @@
     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); #?