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