diff options
| author | ivan <ivan> | 1998-11-15 13:01:35 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-11-15 13:01:35 +0000 |
| commit | d02ed4f82fa0394ee74ec92954524655ad605c8f (patch) | |
| tree | f9cc9a1fe7bd84f3fd99b3b3aa970a738ccfd161 /site_perl | |
| parent | d0339801aec275e994c62ef4a12de4ec2eb294e1 (diff) | |
allow pkgpart changing (for per-customer custom pricing). warn about it in doc
Diffstat (limited to 'site_perl')
| -rw-r--r-- | site_perl/cust_pkg.pm | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/site_perl/cust_pkg.pm b/site_perl/cust_pkg.pm index 249e1b77c..5640e24b6 100644 --- a/site_perl/cust_pkg.pm +++ b/site_perl/cust_pkg.pm @@ -7,6 +7,7 @@ use FS::UID qw(getotaker); use FS::Record qw(fields qsearch qsearchs); use FS::cust_svc; use FS::part_pkg; +use FS::cust_main; @ISA = qw(FS::Record Exporter); @@ -124,7 +125,7 @@ returns the error, otherwise returns false. Currently, custnum, setup, bill, susp, expire, and cancel may be changed. -pkgpart may not be changed, but see the order subroutine. +Changing pkgpart may have disasterous effects. See the order subroutine. setup and bill are normally updated by calling the bill method of a customer object (see L<FS::cust_main>). @@ -141,8 +142,8 @@ sub replace { return "(Old) Not a cust_pkg record!" if $old->table ne "cust_pkg"; return "Can't change pkgnum!" if $old->getfield('pkgnum') ne $new->getfield('pkgnum'); - return "Can't (yet?) change pkgpart!" - if $old->getfield('pkgpart') ne $new->getfield('pkgpart'); + #return "Can't (yet?) change pkgpart!" + # if $old->getfield('pkgpart') ne $new->getfield('pkgpart'); return "Can't change otaker!" if $old->getfield('otaker') ne $new->getfield('otaker'); return "Can't change setup once it exists!" @@ -492,6 +493,10 @@ sub order { =back +=head1 VERSION + +$Id: cust_pkg.pm,v 1.3 1998-11-15 13:01:35 ivan Exp $ + =head1 BUGS It doesn't properly override FS::Record yet. @@ -517,7 +522,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.2 1998-11-12 03:42:45 ivan +Revision 1.3 1998-11-15 13:01:35 ivan +allow pkgpart changing (for per-customer custom pricing). warn about it in doc + +Revision 1.2 1998/11/12 03:42:45 ivan added label method |