<% my $mydomain = ''; my $conf = new FS::Conf; my $maxrecords = $conf->config('maxsearchrecordsperpage'); my $orderby = ''; #removeme my $limit = ''; $limit .= "LIMIT $maxrecords" if $maxrecords; my $offset = $cgi->param('offset') || 0; $limit .= " OFFSET $offset" if $offset; my $total; my($query)=$cgi->keywords; $query ||= ''; #to avoid use of unitialized value errors my $unlinked = ''; if ( $query =~ /^UN_(.*)$/ ) { $query = $1; $unlinked = ' WHERE 0 < ( SELECT count(*) FROM cust_svc WHERE cust_svc.svcnum = svc_acct.svcnum AND pkgnum IS NULL ) '; } my(@svc_acct, $sortby); if ( $query eq 'svcnum' ) { $sortby=\*svcnum_sort; $orderby = 'ORDER BY svcnum'; } elsif ( $query eq 'username' ) { $sortby=\*username_sort; $orderby = 'ORDER BY username'; } elsif ( $query eq 'uid' ) { $sortby=\*uid_sort; $orderby = ( $unlinked ? 'AND' : 'WHERE' ). ' uid IS NOT NULL ORDER BY uid'; } else { $sortby=\*uid_sort; @svc_acct = @{&usernamesearch}; } if ( $query eq 'svcnum' || $query eq 'username' || $query eq 'uid' ) { my $statement = "SELECT COUNT(*) FROM svc_acct $unlinked"; my $sth = dbh->prepare($statement) or die dbh->errstr. " doing $statement"; $sth->execute or die "Error executing \"$statement\": ". $sth->errstr; $total = $sth->fetchrow_arrayref->[0]; @svc_acct = qsearch('svc_acct', {}, '', "$unlinked $orderby $limit"); } if ( scalar(@svc_acct) == 1 ) { my($svcnum)=$svc_acct[0]->svcnum; print $cgi->redirect(popurl(2). "view/svc_acct.cgi?$svcnum"); #redirect #exit; } elsif ( scalar(@svc_acct) == 0 ) { #error %> <% idiot("Account not found"); } else { %> <% $total ||= scalar(@svc_acct); #begin pager my $pager = ''; if ( $total != scalar(@svc_acct) && $maxrecords ) { unless ( $offset == 0 ) { $cgi->param('offset', $offset - $maxrecords); $pager .= 'Previous '; } my $poff; my $page; for ( $poff = 0; $poff < $total; $poff += $maxrecords ) { $page++; if ( $offset == $poff ) { $pager .= qq!$page !; } else { $cgi->param('offset', $poff); $pager .= qq!$page !; } } unless ( $offset + $maxrecords > $total ) { $cgi->param('offset', $offset + $maxrecords); $pager .= 'Next '; } } #end pager print header("Account Search Results",menubar('Main Menu'=>popurl(2))), "$total matching accounts found

$pager", &table(), < # Username Domain UID Service Cust# (bill) name company END if ( defined dbdef->table('cust_main')->column('ship_last') ) { print <(service) name company END } print ""; my(%saw,$svc_acct); my $p = popurl(2); foreach $svc_acct ( sort $sortby grep(!$saw{$_->svcnum}++, @svc_acct) ) { my $cust_svc = qsearchs('cust_svc', { 'svcnum' => $svc_acct->svcnum }) or die "No cust_svc record for svcnum ". $svc_acct->svcnum; my $part_svc = qsearchs('part_svc', { 'svcpart' => $cust_svc->svcpart }) or die "No part_svc record for svcpart ". $cust_svc->svcpart; my $domain; my $svc_domain = qsearchs('svc_domain', { 'svcnum' => $svc_acct->domsvc }); if ( $svc_domain ) { $domain = "svcnum. "\">". $svc_domain->domain. ""; } else { unless ( $mydomain ) { my $conf = new FS::Conf; unless ( $mydomain = $conf->config('domain') ) { die "No legacy domain config file and no svc_domain.svcnum record ". "for svc_acct.domsvc: ". $svc_acct->domsvc; } } $domain = "$mydomain*"; } my($cust_pkg,$cust_main); if ( $cust_svc->pkgnum ) { $cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $cust_svc->pkgnum }) or die "No cust_pkg record for pkgnum ". $cust_svc->pkgnum; $cust_main = qsearchs('cust_main', { 'custnum' => $cust_pkg->custnum }) or die "No cust_main record for custnum ". $cust_pkg->custnum; } my($svcnum, $username, $uid, $svc, $custnum, $last, $first, $company) = ( $svc_acct->svcnum, $svc_acct->getfield('username'), $svc_acct->getfield('uid'), $part_svc->svc, $cust_svc->pkgnum ? $cust_main->custnum : '', $cust_svc->pkgnum ? $cust_main->getfield('last') : '', $cust_svc->pkgnum ? $cust_main->getfield('first') : '', $cust_svc->pkgnum ? $cust_main->company : '', ); my($pcustnum) = $custnum ? "$custnum" : "(unlinked)" ; my $pname = $custnum ? "$last, $first" : ''; my $pcompany = $custnum ? "$company" : ''; my($pship_name, $pship_company); if ( defined dbdef->table('cust_main')->column('ship_last') ) { my($ship_last, $ship_first, $ship_company) = ( $cust_svc->pkgnum ? ( $cust_main->ship_last || $last ) : '', $cust_svc->pkgnum ? ( $cust_main->ship_last ? $cust_main->ship_first : $first ) : '', $cust_svc->pkgnum ? ( $cust_main->ship_last ? $cust_main->ship_company : $company ) : '', ); $pship_name = $custnum ? "$ship_last, $ship_first" : ''; $pship_company = $custnum ? "$ship_company" : ''; } print < $svcnum $username $domain $uid $svc $pcustnum $pname $pcompany END if ( defined dbdef->table('cust_main')->column('ship_last') ) { print <$pship_name $pship_company END } print ""; } print "$pager
"; if ( $mydomain ) { print "
* The $mydomain domain ". "is contained in your legacy domain ". "configuration file. ". "You should run the bin/fs-migrate-svc_acct_sm script ". "to create a proper svc_domain record for this domain."; } print ''; } sub svcnum_sort { $a->getfield('svcnum') <=> $b->getfield('svcnum'); } sub username_sort { $a->getfield('username') cmp $b->getfield('username'); } sub uid_sort { $a->getfield('uid') <=> $b->getfield('uid'); } sub usernamesearch { $cgi->param('username') =~ /^([\w\-\.\&]+)$/; #untaint username_text my($username)=$1; [ qsearch('svc_acct',{'username'=>$username}) ]; } %>