[freeside-commits] freeside/FS/FS svc_acct.pm,1.217.2.1,1.217.2.2

[Ivan,,,]

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

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	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.217.2.1
retrieving revision 1.217.2.2
diff -u -d -r1.217.2.1 -r1.217.2.2
--- svc_acct.pm	15 Mar 2007 00:02:04 -0000	1.217.2.1
+++ svc_acct.pm	28 Mar 2007 03:59:08 -0000	1.217.2.2
@@ -606,6 +606,12 @@
     }
   }
 
+  my $error = $self->SUPER::delete;
+  if ( $error ) {
+    $dbh->rollback if $oldAutoCommit;
+    return $error;
+  }
+
   foreach my $radius_usergroup (
     qsearch('radius_usergroup', { 'svcnum' => $self->svcnum } )
   ) {
@@ -616,12 +622,6 @@
     }
   }
 
-  my $error = $self->SUPER::delete;
-  if ( $error ) {
-    $dbh->rollback if $oldAutoCommit;
-    return $error;
-  }
-
   $dbh->commit or die $dbh->errstr if $oldAutoCommit;
   '';
 }