Subversion Repositories wimsdev

Rev

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

Rev 10757 Rev 10799
Line 2... Line 2...
2 
wims_prefix=class user livret
 2 
wims_prefix=class user livret
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