rlm_perl hook for prepaid voip radius, RT#4100

[freeside.git] / fs_selfservice / FS-SelfService / SelfService / FreeRadiusVoip.pm

diff --git a/fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm b/fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm
index c52a97f..67ad9a1 100644 (file)
--- a/fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm
+++ b/fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm
@@ -41,7 +41,7 @@ sub authorize {
   my $response = call_time( 'src' => $RAD_REQUEST{'Calling-Station-Id'},
                             'dst' => $RAD_REQUEST{'Called-Station-Id'},  );
 
-  if ( $response->{$error} ) {
+  if ( $response->{'error'} ) {
     $RAD_REPLY{'Access-Reject'} = $response->{'error'};
     return RLM_MODULE_REJECT;
   } else {