Subversion Repositories wimsdev

Rev

Rev 4828 | Rev 7148 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4828 Rev 7144
Line 107... Line 107...
107
  !read var.auth
107
  !read var.auth
108
  !if $error!=$empty
108
  !if $error!=$empty
109
   !exit
109
   !exit
110
  !endif
110
  !endif
111
 !endif
111
 !endif
112
 !read $userdef
112
 !defread $userdef
113
 anc=!word 1 of $user_password
113
 anc=!word 1 of $user_password
114
 anc=!passcrypt $anc
114
 anc=!passcrypt $anc
115
 old=!passcrypt $old
115
 old=!passcrypt $old
116
 !if $old!=$anc
116
 !if $old!=$anc
117
  error=bad_user_password
117
  error=bad_user_password
Line 123... Line 123...
123
 pw1=!passcrypt $pw1
123
 pw1=!passcrypt $pw1
124
 !setdef !set user_password=$pw1 in $userdef
124
 !setdef !set user_password=$pw1 in $userdef
125
 pass=!getdef user_password in $userdef
125
 pass=!getdef user_password in $userdef
126
 !if $pass=$pw1
126
 !if $pass=$pw1
127
  error=success
127
  error=success
128
  wims_module_log=Change user password: $wims_user
128
  wims_module_log=Change user password: $wims_user $wims_realuser
129
  !if $wims_user=supervisor
129
  !if $wims_user=supervisor
130
   wims_class_log=change password by $wims_realuser
130
   wims_class_log=change password by $wims_realuser
131
   !read lang/mail.proc.$moduclass_lang
131
   !read lang/mail.proc.$moduclass_lang
132
  !endif
132
  !endif
133
 !else
133
 !else