Rev 12981 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
20 | reyssat | 1 | # Remove supervise mark of a class from supervisor account. |
2 | |||
3 | !if $wims_superclass=$empty or $wims_user!=supervisor or \ |
||
14336 | bpr | 4 | $wims_read_parm=$empty or \ |
5 | $wims_class/ notin $wims_superclass/$wims_read_parm/ |
||
12981 | bpr | 6 | !exit |
20 | reyssat | 7 | !endif |
8 | |||
9 | userdir=wimshome/log/classes/$wims_superclass/.users |
||
10 | Supervisor=!defof class_Supervisor in wimshome/log/classes/$wims_superclass/$wims_read_parm/.def |
||
11 | !if $Supervisor=$empty or $Supervisor=supervisor |
||
12981 | bpr | 12 | !exit |
20 | reyssat | 13 | !endif |
14 | |||
15 | suptest=!defof user_supervisable in $userdir/$Supervisor |
||
16 | !if $suptest!=yes |
||
12981 | bpr | 17 | !exit |
20 | reyssat | 18 | !endif |
19 | |||
20 | suplist=!defof user_supervise in $userdir/$Supervisor |
||
21 | suplist=!listcomplement $wims_superclass/$wims_read_parm in $suplist |
||
22 | !setdef !set user_supervise=$suplist in $userdir/$Supervisor |