rlm_perl hook for prepaid voip radius, RT#4100

diff --git a/fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm b/fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm
index e494f27..0bb2537 100644 (file)
--- a/fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm
+++ b/fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm
@@ -45,7 +45,7 @@ use constant RLM_MODULE_UPDATED=>  8; #OK (pairs modified)
 use constant RLM_MODULE_NUMCODES=> 9; #How many return codes there are
 
 sub authorize {
 use constant RLM_MODULE_NUMCODES=> 9; #How many return codes there are
 
 sub authorize {

-  return $LM_MODULE_OK;
+  return $RLM_MODULE_OK;

 }
 
 sub authenticate {
 }
 
 sub authenticate {