Subversion Repositories wimsdev

Rev

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

Rev 10593 Rev 10768
Line 98... Line 98...
98 
 
 98 
 
99 
!if $type iswordof supervisor participant
 99 
!if $type iswordof supervisor participant
100 
 sccnt=0
 100 
 sccnt=0
101 
 !if $wims_class!=$empty
 101 
 !if $wims_class!=$empty
102 
  !defread wimshome/log/classes/$wims_class/.def
 102 
  !defread wimshome/log/classes/$wims_class/.def
- 
 
 103 
  !! n_type is not always good
103 
  !set wims_ariane=!append line n_$type,8, to $wims_ariane
 104 
  !set wims_ariane=!append line n_$type,8, to $wims_ariane
104 
  !default class_type=0
 105 
  !default class_type=0
105 
  !if $class_type=4
 - 
 
106 
    !set wims_ariane_home=no
 - 
 
107 
  !endif
 - 
 
108 
  !set wims_ariane_self=no
 106 
  !set wims_ariane_self=no
109 
  !if $class_type>=2
 107 
  !if $class_type>=2
110 
   !read adm/class/userdef classes,$wims_class,$wims_user
 108 
   !read adm/class/userdef classes,$wims_class,$wims_user
111 
   supervisable=!defof user_supervisable in $userdef
 109 
   supervisable=!defof user_supervisable in $userdef
112 
   super_type=!defof class_type in wimshome/log/classes/$wims_superclass/.def
 110 
   super_type=!defof class_type in wimshome/log/classes/$wims_superclass/.def