diff options
-rw-r--r-- | site_perl/svc_acct_sm.pm | 4 | ||||
-rw-r--r-- | site_perl/svc_domain.pm | 12 |
2 files changed, 12 insertions, 4 deletions
diff --git a/site_perl/svc_acct_sm.pm b/site_perl/svc_acct_sm.pm index b0eee114c..c757ab073 100644 --- a/site_perl/svc_acct_sm.pm +++ b/site_perl/svc_acct_sm.pm @@ -7,6 +7,8 @@ use FS::svc_Common; use FS::cust_svc; use FS::SSH qw(ssh); use FS::Conf; +use FS::svc_acct; +use FS::svc_domain; @ISA = qw( FS::svc_Common ); @@ -230,7 +232,7 @@ sub check { =head1 VERSION -$Id: svc_acct_sm.pm,v 1.6 1999-01-25 12:26:16 ivan Exp $ +$Id: svc_acct_sm.pm,v 1.7 1999-04-07 14:40:15 ivan Exp $ =head1 BUGS diff --git a/site_perl/svc_domain.pm b/site_perl/svc_domain.pm index 76d666b86..19aac3f88 100644 --- a/site_perl/svc_domain.pm +++ b/site_perl/svc_domain.pm @@ -9,9 +9,12 @@ use Mail::Internet; use Mail::Header; use Date::Format; use FS::Record qw(fields qsearch qsearchs); +use FS::Conf; use FS::svc_Common; use FS::cust_svc; -use FS::Conf; +use FS::svc_acct; +use FS::cust_pkg; +use FS::cust_main; @ISA = qw( FS::svc_Common ); @@ -387,7 +390,7 @@ sub submit_internic { =head1 VERSION -$Id: svc_domain.pm,v 1.6 1999-01-25 12:26:17 ivan Exp $ +$Id: svc_domain.pm,v 1.7 1999-04-07 14:40:15 ivan Exp $ =head1 BUGS @@ -423,7 +426,10 @@ ivan@sisd.com 98-jul-17-19 pod, some FS::Conf (not complete) ivan@sisd.com 98-sep-23 $Log: svc_domain.pm,v $ -Revision 1.6 1999-01-25 12:26:17 ivan +Revision 1.7 1999-04-07 14:40:15 ivan +use all stuff that's qsearch'ed to avoid warnings + +Revision 1.6 1999/01/25 12:26:17 ivan yet more mod_perl stuff Revision 1.5 1998/12/30 00:30:47 ivan |