Subversion Repositories wimsdev

Rev

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

Rev 10573 Rev 10593
Line 30... Line 30...
30 
   authsupervisor,authparticipant,forgetpwd default example
 30 
   authsupervisor,authparticipant,forgetpwd default example
31 
!else
 31 
!else
32 
 !bound type within supervisor,participant,example,\
 32 
 !bound type within supervisor,participant,example,\
33 
   authsupervisor,authparticipant default example
 33 
   authsupervisor,authparticipant default example
34 
!endif
 34 
!endif
35 
!set wims_ariane_self=no
 - 
 
36 
!set wims_ariane=!append line n_$type,8, to $wims_ariane
 - 
 
37 
!if $type=example
 35 
!if $type=example
38 
 superclass=
 36 
 superclass=
39 
!endif
 37 
!endif
40 
 
 38 
 
41 
!if $type=forgetpwd
 39 
!if $type=forgetpwd
Line 100... Line 98...
100 
 
 98 
 
101 
!if $type iswordof supervisor participant
 99 
!if $type iswordof supervisor participant
102 
 sccnt=0
 100 
 sccnt=0
103 
 !if $wims_class!=$empty
 101 
 !if $wims_class!=$empty
104 
  !defread wimshome/log/classes/$wims_class/.def
 102 
  !defread wimshome/log/classes/$wims_class/.def
- 
 
 103 
  !set wims_ariane=!append line n_$type,8, to $wims_ariane
105 
  !default class_type=0
 104 
  !default class_type=0
- 
 
 105 
  !if $class_type=4
- 
 
 106 
    !set wims_ariane_home=no
- 
 
 107 
  !endif
- 
 
 108 
  !set wims_ariane_self=no
106 
  !if $class_type>=2
 109 
  !if $class_type>=2
107 
   !read adm/class/userdef classes,$wims_class,$wims_user
 110 
   !read adm/class/userdef classes,$wims_class,$wims_user
108 
   supervisable=!defof user_supervisable in $userdef
 111 
   supervisable=!defof user_supervisable in $userdef
109 
   super_type=!defof class_type in wimshome/log/classes/$wims_superclass/.def
 112 
   super_type=!defof class_type in wimshome/log/classes/$wims_superclass/.def
110 
   !ifval $super_type=4
 113 
   !ifval $super_type=4