projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 79121 - Added new cdr import format for ani networks, and cron script for same
[freeside.git]
/
FS
/
FS
/
radius_attr.pm
diff --git
a/FS/FS/radius_attr.pm
b/FS/FS/radius_attr.pm
index
51b1bab
..
1b7df2e
100644
(file)
--- a/
FS/FS/radius_attr.pm
+++ b/
FS/FS/radius_attr.pm
@@
-1,9
+1,11
@@
package FS::radius_attr;
package FS::radius_attr;
+use base qw( FS::Record );
use strict;
use strict;
-use base qw( FS::Record );
-use FS::Record qw( qsearch qsearchs );
use vars qw( $noexport_hack );
use vars qw( $noexport_hack );
+use FS::Record qw( qsearch dbh );
+
+$noexport_hack = 0;
=head1 NAME
=head1 NAME
@@
-174,13
+176,6
@@
sub check {
Returns the L<FS::radius_group> object to which this attribute applies.
Returns the L<FS::radius_group> object to which this attribute applies.
-=cut
-
-sub radius_group {
- my $self = shift;
- qsearchs('radius_group', { 'groupnum' => $self->groupnum });
-}
-
=back
=head1 CLASS METHODS
=back
=head1 CLASS METHODS
@@
-195,7
+190,7
@@
check or R for reply.
=cut
my %ops = (
=cut
my %ops = (
- C => [ '==', ':=', '+=', '!=', '>', '>=', '<', '<=', '=~', '!~', '=*', '!*' ],
+ C => [ '=
', '=
=', ':=', '+=', '!=', '>', '>=', '<', '<=', '=~', '!~', '=*', '!*' ],
R => [ '=', ':=', '+=' ],
);
R => [ '=', ':=', '+=' ],
);
@@
-207,6
+202,21
@@
sub ops {
=back
=back
+=cut
+
+sub _upgrade_schema {
+ my ($class, %opts) = @_;
+
+ my $sql = '
+ DELETE FROM radius_attr WHERE NOT EXISTS
+ ( SELECT 1 FROM radius_group WHERE radius_group.groupnum = radius_attr.groupnum )
+ ';
+
+ my $sth = dbh->prepare($sql) or die dbh->errstr;
+ $sth->execute or die $sth->errstr;
+ '';
+}
+
=head1 BUGS
=head1 SEE ALSO
=head1 BUGS
=head1 SEE ALSO