Subversion Repositories wimsdev

Rev

Rev 10799 | Rev 12031 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10799 Rev 10803
Line 3... Line 3...
3 
!if $wims_user=supervisor
 3 
!if $wims_user=supervisor
4 
 !readproc adm/whoconnect
 4 
 !readproc adm/whoconnect
5 
!endif
 5 
!endif
6 
 
 6 
 
7 
!if $wims_class=$empty or ($wims_supertype!=0 and \
 7 
!if $wims_class=$empty or ($wims_supertype!=0 and \
8 
 ($wims_supertype!=2 or $wims_typename!=class)) and\
 8 
 ($wims_supertype!=2 or $wims_typename!=class) and\
9 
 ($wims_supertype!=4 or ($wims_typename notwordof course and /0// notin $wims_class//))
 9 
 ($wims_supertype!=4 or ($wims_typename notwordof course and /0// notin $wims_class//)))
10 
 error=bad_class
 10 
 error=bad_class
11 
 !exit
 11 
 !exit
12 
!endif
 12 
!endif
13 
 
 13 
 
14 
!defread wimshome/log/classes/$wims_class/.def
 14 
!defread wimshome/log/classes/$wims_class/.def