diff options
| author | ivan <ivan> | 1999-03-29 01:11:51 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-03-29 01:11:51 +0000 |
| commit | ba645a8c36119b3a0448b1ae1eeaecbaef13b244 (patch) | |
| tree | 1fbd96b36f451c4e16e01079f1e685912ba8f311 | |
| parent | b5a96aa7ba534b919e74d4e9451bce945232019a (diff) | |
use FS::type_pkgs
| -rw-r--r-- | site_perl/cust_pkg.pm | 8 |
1 files changed, 6 insertions, 2 deletions
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 |