'cust_msg' => [],
'cust_bill_pay_batch' => [],
'cust_event_fee' => [],
+ 'radius_attr' => [],
#update records referencing removed things with their FKs
'cust_pkg' => [],
;
use strict;
use vars qw( $noexport_hack );
-use FS::Record qw( qsearch ); #qsearchs );
+use FS::Record qw( qsearch dbh );
$noexport_hack = 0;
=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
package FS::radius_group;
+use base qw( FS::o2m_Common FS::Record );
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
return $error;
}
}
+
+ foreach my $radius_attr ( $self->radius_attr ) {
+ $error = $radius_attr->delete;
+ if ( $error ) {
+ $dbh->rollback if $oldAutoCommit;
+ return $error;
+ }
+ }
+
dbh->commit;
'';
}