Subversion Repositories wimsdev

Rev

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

Rev 1553 Rev 12981
Line 4... Line 4...
4 
!if $wims_superclass=$empty or $wims_user!=supervisor or $level=$empty
 4 
!if $wims_superclass=$empty or $wims_user!=supervisor or $level=$empty
5 
 !exit
 5 
  !exit
6 
!endif
 6 
!endif
7 
 
 7 
 
8 
Level_=$wims_superclass/$prog
 8 
Level_=$wims_superclass/$prog
9 
Level__=wimshome/log/classes/$Level_
 9 
Level__=wimshome/log/classes/$Level_
10 
!if $prog= or $wims_class/ notin $Level_/
 10 
!if $prog= or $wims_class/ notin $Level_/
11 
 !exit
 11 
  !exit
12 
!endif
 12 
!endif
13 
userdir=wimshome/log/classes/$wims_superclass/.users
 13 
userdir=wimshome/log/classes/$wims_superclass/.users
14 
s_=!item 1 of $wims_read_parm
 14 
s_=!item 1 of $wims_read_parm
15 
titles=!item 2 to -1 of $wims_read_parm
 15 
titles=!item 2 to -1 of $wims_read_parm
16 
L=!record 0 of $Level__/icourses
 16 
L=!record 0 of $Level__/icourses
Line 21... Line 21...
21 
newclasses=!sort numeric items $N
 21 
newclasses=!sort numeric items $N
22 
avcnt=!itemcnt $newclasses
 22 
avcnt=!itemcnt $newclasses
23 
newcnt=!itemcnt $titles
 23 
newcnt=!itemcnt $titles
24 
 
 24 
 
25 
!if $pass!=$empty
 25 
!if $pass!=$empty
26 
 pass=!text select $char_passwd in $pass
 26 
  pass=!text select $char_passwd in $pass
27 
 passlen=!charcnt $pass
 27 
  passlen=!charcnt $pass
28 
 !if $passlen<$passwd_min or $passlen>$passwd_max or $pass != $pass2
 28 
  !if $passlen<$passwd_min or $passlen>$passwd_max or $pass != $pass2
29 
  error=bad_password
 29 
    error=bad_password
30 
  !exit
 30 
    !exit
31 
 !endif
 31 
  !endif
32 
!endif
 32 
!endif
33 
 
 33 
 
34 
!if $passs!=$empty
 34 
!if $passs!=$empty
35 
 passs=!text select $char_passwd in $passs
 35 
 passs=!text select $char_passwd in $passs
36 
 passlen=!charcnt $passs
 36 
 passlen=!charcnt $passs