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 |