<%
-# <!-- $Id: svc_domain.cgi,v 1.4 2001-10-26 10:24:56 ivan Exp $ -->
-
-use strict;
-use vars qw ( $cgi @svc_domain $sortby $query $conf $mydomain );
-use CGI;
-use CGI::Carp qw(fatalsToBrowser);
-use FS::UID qw(cgisuidsetup);
-use FS::Record qw(qsearch qsearchs);
-use FS::CGI qw(header eidiot popurl);
-use FS::svc_domain;
-use FS::cust_svc;
-use FS::svc_acct;
-use FS::svc_forward;
-
-$cgi = new CGI;
-&cgisuidsetup($cgi);
-
-$conf = new FS::Conf;
-$mydomain = $conf->config('domain');
-
-($query)=$cgi->keywords;
+
+my $conf = new FS::Conf;
+my $mydomain = $conf->config('domain');
+
+my($query)=$cgi->keywords;
$query ||= ''; #to avoid use of unitialized value errors
+my(@svc_domain,$sortby);
if ( $query eq 'svcnum' ) {
$sortby=\*svcnum_sort;
@svc_domain=qsearch('svc_domain',{});
if ( scalar(@svc_domain) == 1 ) {
print $cgi->redirect(popurl(2). "view/svc_domain.cgi?". $svc_domain[0]->svcnum);
- exit;
+ #exit;
} elsif ( scalar(@svc_domain) == 0 ) {
+%>
+<!-- mason kludge -->
+<%
eidiot "No matching domains found!\n";
} else {
-
+%>
+<!-- mason kludge -->
+<%
my($total)=scalar(@svc_domain);
- print $cgi->header( @FS::CGI::header ),
- header("Domain Search Results",''), <<END;
+ print header("Domain Search Results",''), <<END;
$total matching domains found
<TABLE BORDER=4 CELLSPACING=0 CELLPADDING=0>
# my(%saw); # if we've multiple domains with the same
# svcnum, then we've a corrupt database
- my($svc_domain);
- my $p = popurl(2);
- foreach $svc_domain (
+ foreach my $svc_domain (
# sort $sortby grep(!$saw{$_->svcnum}++, @svc_domain)
sort $sortby (@svc_domain)
) {