Subversion Repositories wimsdev

Rev

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

Rev 10486 Rev 10593
Line 4... Line 4...
4 
!endif
 4 
!endif
5 
!if $auth_method isitemof $auth_method_list and ($wims_user!=$wims_realuser)
 5 
!!if $auth_method isitemof $auth_method_list and ($wims_user!=$wims_realuser)
6 
  !set tmp_=auth
 6 
  !set tmp_=auth
7 
!else
 7 
!!else
8 
   !reset tmp_
 8 
!!   !reset tmp_
9 
!endif
 9 
!!endif
10 
 
 - 
 
11 
!if $wims_user!=supervisor
 10 
!if $wims_user!=supervisor
12 
  !goto nosupervisor
 11 
  !goto nosupervisor
13 
!endif
 12 
!endif
- 
 
 13 
 
14 
:supervisor
 14 
:supervisor
15 
!set superclass_description=!defof class_description in wimshome/log/classes/$wims_superclass/.def
 15 
!set superclass_description=!defof class_description in wimshome/log/classes/$wims_superclass/.def
16 
!if $wims_superclass!=$empty and $wims_superclass!=$wims_class
 16 
!set c_=8
17 
  !if $auth_method isitemof $auth_method_list
 17 
!if $wims_class isitemof $wims_supervise
18 
    !set wims_ariane=!append line "$superclass_description",1,module=adm/class/classes&type=$(tmp_)supervisor&auth_user=$ext_login&class=$wims_superclass\
 - 
 
19 
to $wims_ariane
 18 
  !set c_=1
20 
  !else
 19 
!endif
21 
    !set wims_ariane=!append line "$superclass_description",1,module=adm/class/classes&type=$(tmp_)supervisor&class=$wims_superclass\
 20 
  !set wims_ariane=!append line "$superclass_description",$c_,module=adm/class/classes&type=$(tmp_)supervisor&auth_user=$ext_login&class=$wims_superclass\
22 
to $wims_ariane
 21 
to $wims_ariane
- 
 
 22 
!if $wims_superclass!=$empty and $wims_superclass!=$wims_class
- 
 
 23 
  !if / isin $class_parent and $class_type=1
- 
 
 24 
    !set pname=!defof class_description in wimshome/log/classes/$class_parent/.def
- 
 
 25 
    !set c_=8
- 
 
 26 
    !if $class_parent isitemof $wims_supervise
- 
 
 27 
      !set c_=1
- 
 
 28 
    !endif
- 
 
 29 
    !set wims_ariane=!append line "$pname",$c_,module=adm/class/classes&type=$(tmp_)supervisor&class=$class_parent to $wims_ariane
23 
  !endif
 30 
  !endif
24 
!!else
 - 
 
25 
  !!if $wims_otherclass!=$empty
 - 
 
26 
    !!reset tmp_
 - 
 
27 
    !!set wims_ariane=!append line "$superclass_description",1,module=adm/class/classes&type=$(tmp_)supervisor&class=$wims_superclass to $wims_ariane
 31 
  !set wims_ariane=!append line "$wims_classname",8 to $wims_ariane
28 
  !!endif
 - 
 
29 
!endif
 32 
!endif
30 
 
 33 
 
31 
!goto subclasses
 34 
!exit
- 
 
 35 
 
32 
:nosupervisor
 36 
:nosupervisor
33 
 
 37 
 
34 
!!if $wims_otherclass!=$empty and $wims_superclass=$wims_class and $tmp_=$empty
 - 
 
35 
  !!set wims_ariane=!append line U_oclass,1,module=adm/class/classes&type=participant to $wims_ariane
 - 
 
36 
!!endif
 - 
 
37 
!if $wims_superclass!=$empty and $wims_superclass!=$wims_class
 38 
!if $wims_superclass!=$empty and $wims_superclass!=$wims_class
38 
    !if $auth_method isitemof $auth_method_list
 - 
 
39 
       !set superclass_description=!defof class_description in wimshome/log/classes/$wims_superclass/.def
 39 
    !set superclass_description=!defof class_description in wimshome/log/classes/$wims_superclass/.def
40 
       !set wims_ariane=!append line "$superclass_description",1,module=adm/class/classes&type=$(tmp_)participant&class=$wims_superclass\
 40 
    !set wims_ariane=!append line "$superclass_description",1,module=adm/class/classes&type=$(tmp_)participant&auth_user=$ext_login&class=$wims_superclass\
41 
to $wims_ariane
 41 
to $wims_ariane
42 
    !endif
 - 
 
43 
!endif
 42 
!endif
44 
 
 43 
 
45 
:subclasses
 44 
:subclasses
46 
!if $wims_superclass!=$empty and $wims_superclass!=$wims_class
 45 
!if $wims_superclass!=$empty and $wims_superclass!=$wims_class
47 
  !if / isin $class_parent and $class_type=1
 46 
  !if / isin $class_parent and $class_type=1
48 
    !set pname=!defof class_description in wimshome/log/classes/$class_parent/.def
 47 
    !set pname=!defof class_description in wimshome/log/classes/$class_parent/.def
49 
    !set wims_ariane=!append line "$pname",1,module=adm/class/classes&type=$(tmp_)supervisor&class=$class_parent\
 48 
    !set wims_ariane=!append line "$pname",1,module=adm/class/classes&type=$(tmp_)participant&auth_user=$ext_login&class=$class_parent\
50 
to $wims_ariane
 49 
to $wims_ariane
51 
  !endif
 50 
  !endif
52 
  !set wims_ariane=!append line "$wims_classname",8 to $wims_ariane
 51 
  !set wims_ariane=!append line "$wims_classname",8 to $wims_ariane
53 
 !!else
 - 
 
54 
   !!set superclass_description=!defof class_description in wimshome/log/classes/$wims_superclass/.def
 - 
 
55 
   !!set wims_ariane=!append line "$superclass_description",8 to $wims_ariane
 - 
 
56 
!endif
 52 
!endif