show credit balance on invoices, #11564
[freeside.git] / bin / fs-migrate-svc_acct_sm
index d0d4a94..07f7b61 100755 (executable)
@@ -1,20 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: fs-migrate-svc_acct_sm,v 1.2 2001-08-12 19:41:25 jeff Exp $
-#
 # jeff@cmh.net 01-Jul-20
-#
-# $Log: fs-migrate-svc_acct_sm,v $
-# Revision 1.2  2001-08-12 19:41:25  jeff
-# merging vpopmail support branch
-#
-# Revision 1.1.2.1  2001/08/08 17:45:35  jeff
-# initial vpopmail support
-#
-#
-#
-#   Initial vpopmail changes
-#
 
 #to delay loading dbdef until we're ready
 #BEGIN { $FS::Record::setup_hack = 1; }
@@ -64,8 +50,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'});