projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 79284 Fix UI bug for Change Package screen
[freeside.git]
/
FS
/
FS
/
radius_group.pm
diff --git
a/FS/FS/radius_group.pm
b/FS/FS/radius_group.pm
index
37aa0f3
..
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
@@
-47,6
+47,8
@@
description
priority - for export
priority - for export
+=item speed_up, speed_down - connection speeds in bits per second. Some
+exports may use this to generate appropriate RADIUS attributes.
=back
=back
@@
-123,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;
'';
}
@@
-176,6
+187,8
@@
sub check {
|| $self->ut_text('groupname')
|| $self->ut_textn('description')
|| $self->ut_numbern('priority')
|| $self->ut_text('groupname')
|| $self->ut_textn('description')
|| $self->ut_numbern('priority')
+ || $self->ut_numbern('speed_up')
+ || $self->ut_numbern('speed_down')
;
return $error if $error;
;
return $error if $error;