diff options
| author | ivan <ivan> | 2002-01-22 14:53:26 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-01-22 14:53:26 +0000 |
| commit | 3a625afa978c85a769c2a40b1bfaeb4aa9d1bc45 (patch) | |
| tree | 475739ed7c776187cb67d79722e925fa3bef8381 | |
| parent | 6c9a1f16bd7e21219ffe3fe62d58c582ac05b50a (diff) | |
silly compilation problem
| -rw-r--r-- | FS/FS/svc_acct.pm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 3f97189e7..0340e7cc5 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -511,15 +511,17 @@ sub delete { } if ( $icradius_dbh ) { - my $queue = new FS::queue { 'job' => 'FS::svc_acct::icradius_rc_delete' }; - $error = $queue->insert( $self->username ); + my $radcheck_queue = + new FS::queue { 'job' => 'FS::svc_acct::icradius_rc_delete' }; + $error = $radcheck_queue->insert( $self->username ); if ( $error ) { $dbh->rollback if $oldAutoCommit; return "queueing job (transaction rolled back): $error"; } - my $queue = new FS::queue { 'job' => 'FS::svc_acct::icradius_rr_delete' }; - $error = $queue->insert( $self->username ); + my $radreply_queue = + new FS::queue { 'job' => 'FS::svc_acct::icradius_rr_delete' }; + $error = $radreply_queue->insert( $self->username ); if ( $error ) { $dbh->rollback if $oldAutoCommit; return "queueing job (transaction rolled back): $error"; @@ -931,7 +933,7 @@ sub radius_reply { ( $FS::raddb::attrib{lc($attrib)}, $self->getfield($column) ); } grep { /^radius_/ && $self->getfield($_) } fields( $self->table ); if ( $self->ip && $self->ip ne '0e0' ) { - $reply{Framed-IP-Address} = $self->ip; + $reply{'Framed-IP-Address'} = $self->ip; } %reply; } @@ -1031,7 +1033,7 @@ sub ssh { =head1 VERSION -$Id: svc_acct.pm,v 1.62 2002-01-16 15:37:42 ivan Exp $ +$Id: svc_acct.pm,v 1.63 2002-01-22 14:53:26 ivan Exp $ =head1 BUGS |