[freeside-commits] freeside/FS/FS svc_acct.pm,1.221,1.222

[Ivan,,,]

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

Modified Files:
	svc_acct.pm 
Log Message:
fix bug with RADIUS groups not available to shellcommands delete export

Index: svc_acct.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/svc_acct.pm,v
retrieving revision 1.221
retrieving revision 1.222
diff -u -d -r1.221 -r1.222
--- svc_acct.pm	14 Mar 2007 23:30:59 -0000	1.221
+++ svc_acct.pm	28 Mar 2007 03:59:07 -0000	1.222
@@ -608,6 +608,12 @@
     }
   }
 
+  my $error = $self->SUPER::delete;
+  if ( $error ) {
+    $dbh->rollback if $oldAutoCommit;
+    return $error;
+  }
+
   foreach my $radius_usergroup (
     qsearch('radius_usergroup', { 'svcnum' => $self->svcnum } )
   ) {
@@ -618,12 +624,6 @@
     }
   }
 
-  my $error = $self->SUPER::delete;
-  if ( $error ) {
-    $dbh->rollback if $oldAutoCommit;
-    return $error;
-  }
-
   $dbh->commit or die $dbh->errstr if $oldAutoCommit;
   '';
 }