#!/usr/bin/perl -Tw
-# $Id: passwd.import,v 1.3 2002-06-21 09:13:16 ivan Exp $
+# $Id: passwd.import,v 1.4 2002-06-21 09:15:59 ivan Exp $
use strict;
use vars qw(%part_svc);
use Term::Query qw(query);
use Net::SCP qw(iscp);
use FS::UID qw(adminsuidsetup datasrc);
-use FS::Record qw(qsearch);
+use FS::Record qw(qsearch qsearchs);
use FS::svc_acct;
use FS::part_svc;