Subversion Repositories wimsdev

Rev

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

Rev 16518 Rev 16615
Line 26... Line 26...
26 
!endif
 26 
!endif
27 
uu=!translate internal . to @ in $uu
 27 
uu=!translate internal . to @ in $uu
28 
login_wims=$uu
 28 
login_wims=$uu
29 
 
 29 
 
30 
!reset user_lastname,user_firstname,user_password,user_email,user_comments,user_photourl,\
 30 
!reset user_lastname,user_firstname,user_password,user_email,user_comments,user_photourl,\
31 
    user_exists,user_participate,user_supervise,user_supervisable,user_external_auth,user_mkclass
 31 
    user_exists,user_participate,user_supervise,user_supervisable,user_external_auth,user_mkclass,\
- 
 
 32 
    user_forcechpwd
32 
!for j in $regvarlist
 33 
!for j in $regvarlist
33 
  !if $(user_$j)!=$empty
 34 
  !if $(user_$j)!=$empty
34 
    !reset user_$j
 35 
    !reset user_$j
35 
  !endif
 36 
  !endif
36 
!next j
 37 
!next j
Line 244... Line 245...
244 
    !exit
 245 
    !exit
245 
  !endif
 246 
  !endif
246 
  up_password=!passcrypt $up_password
 247 
  up_password=!passcrypt $up_password
247 
  replace_=!append line !set user_password=$up_password to $replace_
 248 
  replace_=!append line !set user_password=$up_password to $replace_
248 
!endif
 249 
!endif
- 
 
 250 
 
- 
 
 251 
!bound up_forcechpwd within no,yes default no
- 
 
 252 
replace_=!append line !set user_forcechpwd=$up_forcechpwd to $replace_
249 
 
 253 
 
250 
!if $up_vars!=$empty
 254 
!if $up_vars!=$empty
251 
  up_vars=!nonempty lines $up_vars
 255 
  up_vars=!nonempty lines $up_vars
252 
  up_vars=!replace internal ! by ! in $up_vars
 256 
  up_vars=!replace internal ! by ! in $up_vars
253 
  up_vars=!rows2lines $up_vars
 257 
  up_vars=!rows2lines $up_vars