diff options
Diffstat (limited to 'FS/FS/svc_acct.pm')
| -rw-r--r-- | FS/FS/svc_acct.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 4b7ec98c4..83263b0e4 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -82,6 +82,10 @@ FS::svc_acct - Object methods for svc_acct records %hash = $record->radius; + %hash = $record->radius_reply; + + %hash = $record->radius_check; + =head1 DESCRIPTION An FS::svc_acct object represents an account. FS::svc_acct inherits from @@ -113,6 +117,8 @@ FS::svc_Common. The following fields are currently supported: =item radius_I<Radius_Attribute> - I<Radius-Attribute> +=item domsvc - service number of svc_domain with which to associate + =back =head1 METHODS @@ -169,7 +175,9 @@ sub insert { return $error if $error; return "Username ". $self->username. " in use" - if qsearchs( 'svc_acct', { 'username' => $self->username } ); + if qsearchs( 'svc_acct', { 'username' => $self->username, + 'domsvc' => $self->domsvc, + } ); my $part_svc = qsearchs( 'part_svc', { 'svcpart' => $self->svcpart } ); return "Unknown svcpart" unless $part_svc; @@ -544,7 +552,7 @@ sub radius_check { =head1 VERSION -$Id: svc_acct.pm,v 1.19 2001-07-30 07:34:41 ivan Exp $ +$Id: svc_acct.pm,v 1.20 2001-08-12 19:41:24 jeff Exp $ =head1 BUGS |