Subversion Repositories wimsdev

Rev

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

Rev 12808 Rev 12845
Line 18... Line 18...
18 
!read adm/class/userdef classes,$wims_class,$wims_realuser
 18 
!read adm/class/userdef classes,$wims_class,$wims_realuser
19 
!set user_supervisable=!defof user_supervisable in $userdef
 19 
!set user_supervisable=!defof user_supervisable in $userdef
20 
!if $user_supervisable=yes
 20 
!if $user_supervisable=yes
21 
  !set user_supervise=!defof user_supervise in $userdef
 21 
  !set user_supervise=!defof user_supervise in $userdef
22 
!endif
 22 
!endif
23 
if $wims_user=supervisor
 23 
!if $wims_user=supervisor
24 
  !set user_supervise=!append item $wims_class to $user_supervise
 24 
  !set user_supervise=!append item $wims_class to $user_supervise
25 
!endif
 25 
!endif
26 
!set user_participate=!defof user_participate in $userdef
 26 
!set user_participate=!defof user_participate in $userdef
27 
 
 27 
 
28 
neib=!defof n_$nam in wimshome/log/classes/$wims_class/neighbors
 28 
neib=!defof n_$nam in wimshome/log/classes/$wims_class/neighbors