diff options
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index a0e8a5f..fe3e987 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -1024,17 +1024,18 @@ proc askToLogin {} { } proc ResetForgottenPassword { permission_list user } { - global script_name + global script_name user_requested - if { [SelectColValue4User UserName $user] eq "" } { - htmlErrorMsg "Cannot reset password for unknown user {$user}" + if { [SelectColValue4User UserName $user_requested] eq "" } { + htmlErrorMsg "Sorry but user {$user_requested} is not registered in this class" + dbg "{$user_requested} is not registered in this class" msg_level_info return } #reset password procedure goes here set newpassword [GenPassword] - UpdateColValue4UserNameNonWeb PasswordHash $user [::md5::md5 -hex $newpassword] - SendNewPassword2User $user $newpassword + Set_New_Password_Non_Web $user_requested $newpassword + SendNewPassword2User $user_requested $newpassword } proc GenPassword { } { |