projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
4.x-style
[freeside.git]
/
FS
/
FS
/
radius_group.pm
diff --git
a/FS/FS/radius_group.pm
b/FS/FS/radius_group.pm
index
f1a4efe
..
21ce25f
100644
(file)
--- a/
FS/FS/radius_group.pm
+++ b/
FS/FS/radius_group.pm
@@
-1,8
+1,8
@@
package FS::radius_group;
package FS::radius_group;
+use base qw( FS::o2m_Common FS::Record );
use strict;
use strict;
-use base qw( FS::o2m_Common FS::Record );
-use FS::Record qw( qsearch qsearchs dbh );
+use FS::Record qw( qsearch dbh );
use FS::radius_attr;
=head1 NAME
use FS::radius_attr;
=head1 NAME
@@
-125,6
+125,15
@@
sub delete {
return $error;
}
}
return $error;
}
}
+
+ foreach my $radius_attr ( $self->radius_attr ) {
+ $error = $radius_attr->delete;
+ if ( $error ) {
+ $dbh->rollback if $oldAutoCommit;
+ return $error;
+ }
+ }
+
dbh->commit;
'';
}
dbh->commit;
'';
}