<%
-# <!-- $Id: svc_acct.cgi,v 1.4 2001-08-21 02:16:36 ivan Exp $ -->
+# <!-- $Id: svc_acct.cgi,v 1.7 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi @svc_acct $sortby $query $mydomain );
use CGI::Carp qw(fatalsToBrowser);
use FS::UID qw(cgisuidsetup);
use FS::Record qw(qsearch qsearchs dbdef);
-use FS::CGI qw(header eidiot popurl table);
+use FS::CGI qw(header idiot popurl table);
use FS::svc_acct;
use FS::cust_main;
+$mydomain = '';
+
$cgi = new CGI;
&cgisuidsetup($cgi);
if ( scalar(@svc_acct) == 1 ) {
my($svcnum)=$svc_acct[0]->svcnum;
print $cgi->redirect(popurl(2). "view/svc_acct.cgi?$svcnum"); #redirect
- exit;
+ #exit;
} elsif ( scalar(@svc_acct) == 0 ) { #error
- eidiot("Account not found");
+ idiot("Account not found");
} else {
my($total)=scalar(@svc_acct);
- print $cgi->header( '-expires' => 'now' ),
+ print $cgi->header( @FS::CGI::header ),
header("Account Search Results",''),
"$total matching accounts found",
&table(), <<END;