From 9bf3802bd469521ba3850acde703a8e322eee776 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Sat, 21 Jan 2012 17:25:21 -0500 Subject: make use of Set_New_Password_Non_Web --- GradeBook_lib.tcl | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'GradeBook_lib.tcl') 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 { } { -- cgit v1.2.3