diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2012-09-28 12:23:23 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2012-09-28 12:23:23 -0700 |
| commit | a40226e5f72ae19a9c59135113b71639e7cfda93 (patch) | |
| tree | 51b3471840f1b1af0931f12ea24913f0fb2dc021 | |
| parent | 6656228b824a35b8f23b428b952c26bf16377bc9 (diff) | |
fix unsuspending packages which didn't have a suspend reason, fallout from #6587
| -rw-r--r-- | FS/FS/cust_pkg.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index bab2039eb..fb774c6f3 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -1361,7 +1361,8 @@ sub unsuspend { } - my $reason = $self->last_cust_pkg_reason('susp')->reason; + my $cust_pkg_reason = $self->last_cust_pkg_reason('susp'); + my $reason = $cust_pkg_reason ? $cust_pkg_reason->reason : ''; my %hash = $self->hash; my $inactive = time - $hash{'susp'}; @@ -1391,7 +1392,7 @@ sub unsuspend { my $unsusp_pkg; - if ( $reason->unsuspend_pkgpart ) { + if ( $reason && $reason->unsuspend_pkgpart ) { my $part_pkg = FS::part_pkg->by_key($reason->unsuspend_pkgpart) or $error = "Unsuspend package definition ".$reason->unsuspend_pkgpart. " not found."; |