diff options
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/cust_svc.pm | 4 | ||||
| -rw-r--r-- | FS/FS/part_svc.pm | 5 |
2 files changed, 7 insertions, 2 deletions
diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm index 8cce7afb4..fc6e60594 100644 --- a/FS/FS/cust_svc.pm +++ b/FS/FS/cust_svc.pm @@ -308,7 +308,9 @@ sub check { my $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $self->pkgnum } ); return "Unknown pkgnum" unless $cust_pkg; ($part_svc) = grep { $_->svcpart == $self->svcpart } $cust_pkg->part_svc; - + return "No svcpart ". $self->svcpart. + " services in pkgpart ". $cust_pkg->pkgpart + unless $part_svc; return "Already ". $part_svc->get('num_cust_svc'). " ". $part_svc->svc. " services for pkgnum ". $self->pkgnum if $part_svc->get('num_avail') == 0 and !$ignore_quantity; diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm index ddc0a7969..c4881c706 100644 --- a/FS/FS/part_svc.pm +++ b/FS/FS/part_svc.pm @@ -12,7 +12,7 @@ use FS::cust_svc; @ISA = qw(FS::Record); -$DEBUG = 0; +$DEBUG = 1; =head1 NAME @@ -816,6 +816,9 @@ sub process_bulk_cust_svc { my $param = thaw(decode_base64(shift)); warn Dumper($param) if $DEBUG; + local($FS::svc_Common::noexport_hack) = 1 + if $param->{'noexport'}; + my $old_part_svc = qsearchs('part_svc', { 'svcpart' => $param->{'old_svcpart'} } ); |