X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fradius_attr.pm;h=16d3f62a30e957098dbe76a260bb034c482cc7ad;hb=18af4f3316291938fa8f0a74e083209f62eac4fa;hp=b4c6e7094f68196f945e1daeb2992e4979a5b884;hpb=d838063ab25f047e88c3e5ae16f77fc4f3481ce9;p=freeside.git diff --git a/FS/FS/radius_attr.pm b/FS/FS/radius_attr.pm index b4c6e7094..16d3f62a3 100644 --- a/FS/FS/radius_attr.pm +++ b/FS/FS/radius_attr.pm @@ -1,9 +1,11 @@ package FS::radius_attr; +use base qw( FS::Record ); use strict; -use base qw( FS::Record ); -use FS::Record qw( qsearch qsearchs ); use vars qw( $noexport_hack ); +use FS::Record qw( qsearch ); #qsearchs ); + +$noexport_hack = 0; =head1 NAME @@ -52,7 +54,7 @@ currently supported: =item new HASHREF -Creates a new example. To add the example to the database, see L<"insert">. +Creates a new record. To add the record to the database, see L<"insert">. Note that this stores the hash reference, not a distinct copy of the hash it points to. You can ask the object for a copy with the I method. @@ -143,7 +145,7 @@ sub replace { =item check -Checks all fields to make sure this is a valid example. If there is +Checks all fields to make sure this is a valid record. If there is an error, returns the error, otherwise returns false. Called by the insert and replace methods. @@ -174,13 +176,6 @@ sub check { Returns the L object to which this attribute applies. -=cut - -sub radius_group { - my $self = shift; - qsearchs('radius_group', { 'groupnum' => $self->groupnum }); -} - =back =head1 CLASS METHODS @@ -195,7 +190,7 @@ check or R for reply. =cut my %ops = ( - C => [ '==', ':=', '+=', '!=', '>', '>=', '<', '<=', '=~', '!~', '=*', '!*' ], + C => [ '=', '==', ':=', '+=', '!=', '>', '>=', '<', '<=', '=~', '!~', '=*', '!*' ], R => [ '=', ':=', '+=' ], );