projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
merging vpopmail support branch
[freeside.git]
/
FS
/
FS
/
svc_acct.pm
diff --git
a/FS/FS/svc_acct.pm
b/FS/FS/svc_acct.pm
index
4b7ec98
..
83263b0
100644
(file)
--- 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;
+ %hash = $record->radius_reply;
+
+ %hash = $record->radius_check;
+
=head1 DESCRIPTION
An FS::svc_acct object represents an account. FS::svc_acct inherits from
=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 radius_I<Radius_Attribute> - I<Radius-Attribute>
+=item domsvc - service number of svc_domain with which to associate
+
=back
=head1 METHODS
=back
=head1 METHODS
@@
-169,7
+175,9
@@
sub insert {
return $error if $error;
return "Username ". $self->username. " in use"
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;
my $part_svc = qsearchs( 'part_svc', { 'svcpart' => $self->svcpart } );
return "Unknown svcpart" unless $part_svc;
@@
-544,7
+552,7
@@
sub radius_check {
=head1 VERSION
=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
=head1 BUGS