make use of Set_New_Password_Non_Web

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 { } {