Subversion Repositories wimsdev

Rev

Rev 12981 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12981 Rev 14336
Line 3... Line 3...
3 
 
 3 
 
4 
thisclass=!translate internal / to , in $wims_read_parm
 4 
thisclass=!translate internal / to , in $wims_read_parm
5 
thislevel=$(thisclass[2])
 5 
thislevel=$(thisclass[2])
6 
 
 6 
 
7 
!if $wims_superclass=$empty or $wims_superclass!=$(thisclass[1]) or\
 7 
!if $wims_superclass=$empty or $wims_superclass!=$(thisclass[1]) or\
8 
	$thislevel=$empty or $wims_user!=supervisor or\
 8 
  $thislevel=$empty or $wims_user!=supervisor or\
9 
	$wims_class!=$wims_superclass
 9 
  $wims_class!=$wims_superclass
10 
  !exit
 10 
  !exit
11 
!endif
 11 
!endif
12 
 
 12 
 
13 
cls_=$wims_read_parm
 13 
cls_=$wims_read_parm
14 
cls__=wimshome/log/classes/$cls_
 14 
cls__=wimshome/log/classes/$cls_