diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-04-30 06:58:09 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2015-04-30 06:58:09 -0700 |
commit | 3a2d8bbc434fbcb96563bd4d437b31db38c76f09 (patch) | |
tree | 9d8a5513cb5b1fceea7cddd97640bbb3ee4edeb2 /FS | |
parent | a9bd30b5b5231db37360e285fbbfa237195cd064 (diff) |
service dependencies: cust_svc_suspend_cascade, RT#33685
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/cust_pkg.pm | 4 | ||||
-rw-r--r-- | FS/FS/cust_svc.pm | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index 9352362..5859727 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -1404,7 +1404,7 @@ sub suspend { } } - my @cust_svc = qsearch( 'cust_svc', { 'pkgnum' => $self->pkgnum } ) + my @cust_svc = qsearch( 'cust_svc', { 'pkgnum' => $self->pkgnum } ); #attempt ordering ala cust_svc_suspend_cascade (without infinite-looping # on the circular dep case) @@ -1413,7 +1413,7 @@ sub suspend { my %svcpart = (); $svcpart{$_->svcpart} = 0 foreach @cust_svc; foreach my $svcpart ( keys %svcpart ) { - foreach my $part_pkg_link ( + foreach my $part_svc_link ( FS::part_svc_link->by_agentnum($self->cust_main->agentnum, src_svcpart => $svcpart, link_type => 'cust_svc_suspend_cascade' diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm index 0465580..986c5ae 100644 --- a/FS/FS/cust_svc.pm +++ b/FS/FS/cust_svc.pm @@ -202,7 +202,7 @@ sub suspend { my $svc = qsearchs( $svcdb, { 'svcnum' => $self->svcnum } ) or return ''; - $error = $svc->suspend; + my $error = $svc->suspend; return $error if $error; if ( $opt{labels_arryref} ) { |