import fixes...
[freeside.git] / bin / fs-migrate-svc_acct_sm
index ae2dc76..e34b235 100755 (executable)
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: fs-migrate-svc_acct_sm,v 1.3 2001-08-21 02:43:18 ivan Exp $
+# $Id: fs-migrate-svc_acct_sm,v 1.4 2002-06-21 09:13:16 ivan Exp $
 #
 # jeff@cmh.net 01-Jul-20
 
@@ -52,8 +52,7 @@ my($dbh)=adminsuidsetup $user;
 
 $|=1;
 
-$FS::svc_acct::nossh_hack = 1;
-$FS::svc_forward::nossh_hack = 1;
+$FS::svc_Common::noexport_hack = 1;
 $FS::svc_domain::whois_hack = 1;
 
 %part_domain_svc=map { $_->svcpart, $_ } qsearch('part_svc',{'svcdb'=>'svc_domain'});