diff options
| author | mark <mark> | 2011-04-01 02:52:24 +0000 |
|---|---|---|
| committer | mark <mark> | 2011-04-01 02:52:24 +0000 |
| commit | b65b8096089410001dfbcd35f9a56f9405b9f5f1 (patch) | |
| tree | df16b0422007bd876bc969bdff857d8a510b0aca /FS/FS/cust_pkg.pm | |
| parent | 19b0c403fbf697a1de92f12abc8a2104daca07bc (diff) | |
svc_hardware and svc_dish, #11454
Diffstat (limited to 'FS/FS/cust_pkg.pm')
| -rw-r--r-- | FS/FS/cust_pkg.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index 2efd4fd..13a3b6e 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -761,6 +761,8 @@ sub cancel { map { [ $_, $_->svc_x->table_info->{'cancel_weight'} ]; } qsearch( 'cust_svc', { 'pkgnum' => $self->pkgnum } ) ) { + my $part_svc = $cust_svc->part_svc; + next if ( defined($part_svc) and $part_svc->preserve ); my $error = $cust_svc->cancel( %svc_cancel_opt ); if ( $error ) { |