fix unlinked svc browse!

diff --git a/htetc/global.asa b/htetc/global.asa
index 94d6b7e..48d0d6f 100644 (file)
--- a/htetc/global.asa
+++ b/htetc/global.asa
@@ -10,7 +10,7 @@ use IO::Handle;
 use IO::File;
 use String::Approx qw(amatch);
 use HTML::Widgets::SelectLayers;
-use FS::UID qw(cgisuidsetup dbh getotaker datasrc);
+use FS::UID qw(cgisuidsetup dbh getotaker datasrc driver_name);
 use FS::Record qw(qsearch qsearchs fields dbdef);
 use FS::Conf;
 use FS::CGI qw(header menubar popurl table itable ntable idiot eidiot

diff --git a/htetc/handler.pl b/htetc/handler.pl
index 8e097c6..1a746a5 100644 (file)
--- a/htetc/handler.pl
+++ b/htetc/handler.pl
@@ -67,7 +67,7 @@ sub handler
       use IO::File;
       use String::Approx qw(amatch);
       use HTML::Widgets::SelectLayers;
-      use FS::UID qw(cgisuidsetup dbh getotaker datasrc);
+      use FS::UID qw(cgisuidsetup dbh getotaker datasrc driver_name);
       use FS::Record qw(qsearch qsearchs fields dbdef);
       use FS::Conf;
       use FS::CGI qw(header menubar popurl table itable ntable idiot eidiot

diff --git a/httemplate/search/svc_acct.cgi b/httemplate/search/svc_acct.cgi
index daf025a..e28e00e 100755 (executable)
--- a/httemplate/search/svc_acct.cgi
+++ b/httemplate/search/svc_acct.cgi
@@ -21,13 +21,14 @@ $query ||= ''; #to avoid use of unitialized value errors
 my $unlinked = '';
 if ( $query =~ /^UN_(.*)$/ ) {
   $query = $1;
-  $unlinked = '
+  my $empty = driver_name =~ /^Pg$/i ? qq('') : qq("");
+  $unlinked = "
     WHERE 0 <
       ( SELECT count(*) FROM cust_svc
           WHERE cust_svc.svcnum = svc_acct.svcnum
-            AND pkgnum IS NULL
+            AND ( pkgnum IS NULL OR pkgnum = 0 OR pkgnum = $empty )
       )
-  ';
+  ";
 }
 
 my(@svc_acct, $sortby);