summaryrefslogtreecommitdiff
path: root/FS/FS/cust_svc.pm
diff options
context:
space:
mode:
authorivan <ivan>2011-06-28 22:36:20 +0000
committerivan <ivan>2011-06-28 22:36:20 +0000
commit8c5a1df1a46121c75a829eb1d57956c9731940ab (patch)
tree72d4bbd0745d39ec65e34d7091f740d55872c88d /FS/FS/cust_svc.pm
parentf4a49642af5d6de9908f8fb99570c492ae68cccc (diff)
add no export option to bulk service changes, RT#13439
Diffstat (limited to 'FS/FS/cust_svc.pm')
-rw-r--r--FS/FS/cust_svc.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm
index 8cce7af..fc6e605 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;