Subversion Repositories wimsdev

Rev

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

Rev 15371 Rev 15473
Line 210... Line 210...
210 
  !endif
 210 
  !endif
211 
!endif
 211 
!endif
212 
!distribute lines $classe into limit,participants,password,institution,description,supervisor,smail,cltype
 212 
!distribute lines $classe into limit,participants,password,institution,description,supervisor,smail,cltype
213 
 
 213 
 
214 
# class password verification.
 214 
# class password verification.
- 
 
 215 
# already in password ??
215 
classpass_=!defof class_password in wimshome/log/classes/$class/.def
 216 
classpass_=!defof class_password in wimshome/log/classes/$class/.def
216 
!if $classpass_=*
 217 
!if $classpass_=*
217 
  passverify=ok
 218 
  passverify=ok
218 
  !goto passclassok
 219 
  !goto passclassok
219 
!endif
 220 
!endif
220 
 
 221 
 
- 
 
 222 
classpass_=!passcrypt $classpass_
- 
 
 223 
!setdef !set class_password=$classpass_ in wimshome/log/classes/$class/.def
- 
 
 224 
passclass_check=!passcheck $classpass and $classpass_
221 
!if $step=1 or ($step=$empty and ($wims_user=supervisor or $classpass=$password))
 225 
!if $step=1 or ($step=$empty and ($wims_user=supervisor or $passclass_check=yes))
222 
  !if ($class=$wims_class and $wims_user=supervisor) or $classpass=$password
 226 
  !if ($class=$wims_class and $wims_user=supervisor) or $passclass_check=yes
223 
    superclass=!defof class_superclass in wimshome/log/classes/$class/.def
 227 
    superclass=!defof class_superclass in wimshome/log/classes/$class/.def
224 
    passverify=ok
 228 
    passverify=ok
225 
    search=!translate internal '",\:;$$&@*=+?/|^()[]{} to \
 229 
    search=!translate internal '",\:;$$&@*=+?/|^()[]{} to \
226 
 ................................... in $search
 230 
 ................................... in $search
227 
    search=!word -1 of $search
 231 
    search=!word -1 of $search