my $r = $svc_acct->cust_svc->cust_pkg->last_reason;
my %reasonmap = $self->_groups_susp_reason_map;
my $userspec = '';
- $userspec = $reasonmap{$r->reasonnum}
- if exists($reasonmap{$r->reasonnum});
- $userspec = $reasonmap{$r->reason}
- if (!$userspec && exists($reasonmap{$r->reason}));
+ if ($r) {
+ $userspec = $reasonmap{$r->reasonnum}
+ if exists($reasonmap{$r->reasonnum});
+ $userspec = $reasonmap{$r->reason}
+ if (!$userspec && exists($reasonmap{$r->reason}));
+ }
my $suspend_user;
if ($userspec =~ /^d+$/ ){
$suspend_user = qsearchs( 'svc_acct', { 'svcnum' => $userspec } );