From bf79d364cb1beb5dcc00becb6f7689dc37adfbc0 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 18 Oct 2011 18:10:28 +0000
Subject: [PATCH] fix suspensions by svcnum, RT#14398

---
 FS/FS/part_export/sqlradius.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FS/FS/part_export/sqlradius.pm b/FS/FS/part_export/sqlradius.pm
index b868121bf..8af53abcd 100644
--- a/FS/FS/part_export/sqlradius.pm
+++ b/FS/FS/part_export/sqlradius.pm
@@ -358,7 +358,7 @@ sub suspended_usergroups {
       if (!$userspec && exists($reasonmap{$r->reason}));
   }
   my $suspend_user;
-  if ($userspec =~ /^d+$/ ){
+  if ($userspec =~ /^\d+$/ ){
     $suspend_user = qsearchs( 'svc_acct', { 'svcnum' => $userspec } );
   }elsif ($userspec =~ /^\S+\@\S+$/){
     my ($username,$domain) = split(/\@/, $userspec);
-- 
2.11.0