Rev 20 | Rev 14336 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 20 | Rev 12981 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | # Add a class under the current level. |
1 | # Add a class under the current level. |
| 2 | # Calling parameter: supervisor_account,title,... |
2 | # Calling parameter: supervisor_account,title,... |
| 3 | 3 | ||
| 4 | !if $wims_superclass=$empty or $wims_user!=supervisor or \ |
4 | !if $wims_superclass=$empty or $wims_user!=supervisor or \ |
| 5 | $level=$empty or $wims_class/ notin $wims_superclass/$level/ |
5 | $level=$empty or $wims_class/ notin $wims_superclass/$level/ |
| 6 | !exit |
6 | !exit |
| 7 | !endif |
7 | !endif |
| 8 | 8 | ||
| 9 | Level_=$wims_superclass/$level |
9 | Level_=$wims_superclass/$level |
| 10 | Level__=wimshome/log/classes/$Level_ |
10 | Level__=wimshome/log/classes/$Level_ |
| 11 | userdir=wimshome/log/classes/$wims_superclass/.users |
11 | userdir=wimshome/log/classes/$wims_superclass/.users |
| Line 18... | Line 18... | ||
| 18 | N=!listcomplement $L in $A |
18 | N=!listcomplement $L in $A |
| 19 | newclasses=!sort numeric items $N |
19 | newclasses=!sort numeric items $N |
| 20 | avcnt=!itemcnt $newclasses |
20 | avcnt=!itemcnt $newclasses |
| 21 | newcnt=!itemcnt $titles |
21 | newcnt=!itemcnt $titles |
| 22 | !if $newcnt<1 |
22 | !if $newcnt<1 |
| 23 | !exit |
23 | !exit |
| 24 | !endif |
24 | !endif |
| 25 | classes=!record 0 of $Level__/classes |
25 | classes=!record 0 of $Level__/classes |
| 26 | classes=!column 1 of $classes |
26 | classes=!column 1 of $classes |
| 27 | classes=!nonempty items $classes |
27 | classes=!nonempty items $classes |
| 28 | 28 | ||
| 29 | !if $newclasses=$empty or $avcnt<$newcnt |
29 | !if $newclasses=$empty or $avcnt<$newcnt |
| 30 | error=prog_full |
30 | error=prog_full |
| 31 | !exit |
31 | !exit |
| 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 |