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