Subversion Repositories wimsdev

Rev

Rev 20 | 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 
# Remove supervise mark of a class from supervisor account.
 1 
# Remove supervise mark of a class from supervisor account.
2 
 
 2 
 
3 
!if $wims_superclass=$empty or $wims_user!=supervisor or \
 3 
!if $wims_superclass=$empty or $wims_user!=supervisor or \
4 
	$wims_read_parm=$empty or \
 4 
	$wims_read_parm=$empty or \
5 
	$wims_class/ notin $wims_superclass/$wims_read_parm/
 5 
	$wims_class/ notin $wims_superclass/$wims_read_parm/
6 
 !exit
 6 
  !exit
7 
!endif
 7 
!endif
8 
 
 8 
 
9 
userdir=wimshome/log/classes/$wims_superclass/.users
 9 
userdir=wimshome/log/classes/$wims_superclass/.users
10 
Supervisor=!defof class_Supervisor in wimshome/log/classes/$wims_superclass/$wims_read_parm/.def
 10 
Supervisor=!defof class_Supervisor in wimshome/log/classes/$wims_superclass/$wims_read_parm/.def
11 
!if $Supervisor=$empty or $Supervisor=supervisor
 11 
!if $Supervisor=$empty or $Supervisor=supervisor
12 
 !exit
 12 
  !exit
13 
!endif
 13 
!endif
14 
 
 14 
 
15 
suptest=!defof user_supervisable in $userdir/$Supervisor
 15 
suptest=!defof user_supervisable in $userdir/$Supervisor
16 
!if $suptest!=yes
 16 
!if $suptest!=yes
17 
 !exit
 17 
  !exit
18 
!endif
 18 
!endif
19 
 
 19 
 
20 
suplist=!defof user_supervise in $userdir/$Supervisor
 20 
suplist=!defof user_supervise in $userdir/$Supervisor
21 
suplist=!listcomplement $wims_superclass/$wims_read_parm in $suplist
 21 
suplist=!listcomplement $wims_superclass/$wims_read_parm in $suplist
22 
!setdef !set user_supervise=$suplist in $userdir/$Supervisor
 22 
!setdef !set user_supervise=$suplist in $userdir/$Supervisor