Subversion Repositories wimsdev

Rev

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

Rev 13049 Rev 15267
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 
!readproc adm/allowlink/livret.proc
8 
  ($wims_supertype!=2 or $wims_typename!=class) and\
 - 
 
9 
  ($wims_supertype!=4 or ($wims_typename notwordof course program\
 - 
 
10 
  and /0// notin $wims_class//)))
 8 
!if $wims_allowlink_cdt=no
11 
  error=bad_class
 9 
  error=bad_class
12 
  !exit
 10 
  !exit
13 
!endif
 11 
!endif
14 
 
 12 
 
15 
!defread wimshome/log/classes/$wims_class/.def
 13 
!defread wimshome/log/classes/$wims_class/.def