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 |