Subversion Repositories wimsdev

Rev

Rev 20 | Go to most recent revision | 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 \
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