[freeside-commits] freeside/FS/FS/part_export sqlradius.pm, 1.20, 1.21

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail:/tmp/cvs-serv18352

Modified Files:
	sqlradius.pm 
Log Message:
do not require a reason to have been suspended

Index: sqlradius.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/sqlradius.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- sqlradius.pm	27 Oct 2006 02:12:44 -0000	1.20
+++ sqlradius.pm	31 Oct 2006 18:56:32 -0000	1.21
@@ -309,10 +309,12 @@
   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 } );