X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=site_perl%2Fcust_pkg.pm;h=aa68f608f42a8839ce7a7b1f61ee304c9ee772ed;hb=8f4617e35f89b741b8ab5ba9136667b4c877d992;hp=31b4524f201791200d200b7af0d77a8c9f58d370;hpb=de46aa575f3e726a9b005172706cff5e542955fd;p=freeside.git

diff --git a/site_perl/cust_pkg.pm b/site_perl/cust_pkg.pm
index 31b4524f2..aa68f608f 100644
--- a/site_perl/cust_pkg.pm
+++ b/site_perl/cust_pkg.pm
@@ -7,6 +7,7 @@ use FS::Record qw( qsearch qsearchs );
 use FS::cust_svc;
 use FS::part_pkg;
 use FS::cust_main;
+use FS::type_pkgs;
 
 # need to 'use' these instead of 'require' in sub { cancel, suspend, unsuspend,
 # setup }
@@ -495,7 +496,7 @@ sub order {
 
 =head1 VERSION
 
-$Id: cust_pkg.pm,v 1.8 1999-03-25 13:48:14 ivan Exp $
+$Id: cust_pkg.pm,v 1.9 1999-03-29 01:11:51 ivan Exp $
 
 =head1 BUGS
 
@@ -526,7 +527,10 @@ fixed for new agent->agent_type->type_pkgs in &order ivan@sisd.com 98-mar-7
 pod ivan@sisd.com 98-sep-21
 
 $Log: cust_pkg.pm,v $
-Revision 1.8  1999-03-25 13:48:14  ivan
+Revision 1.9  1999-03-29 01:11:51  ivan
+use FS::type_pkgs
+
+Revision 1.8  1999/03/25 13:48:14  ivan
 allow empty custnum in sub check (but call that an error in sub insert),
 for one-screen new customer entry