Subversion Repositories wimsdev

Rev

Rev 13170 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
10161 obado 1 
!! Insert a link to other classes in breadcrumbs.
10172 bpr 2 
!if $wims_user=$empty
3 
  !exit
4 
!endif
10593 bpr 5 
!!if $auth_method isitemof $auth_method_list and ($wims_user!=$wims_realuser)
10172 bpr 6 
  !set tmp_=auth
10593 bpr 7 
!!else
8 
!!   !reset tmp_
9 
!!endif
10172 bpr 10 
!if $wims_user!=supervisor
11 
  !goto nosupervisor
12 
!endif
10593 bpr 13 
 
10172 bpr 14 
:supervisor
15 
!set superclass_description=!defof class_description in wimshome/log/classes/$wims_superclass/.def
10593 bpr 16 
!set c_=8
17293 guerimand 17 
!if $wims_class isitemof $wims_supervise or $wims_realuser=supervisor or $wims_realuser=SUPERVISOR
10593 bpr 18 
  !set c_=1
19 
!endif
10656 bpr 20 
!if $class_type!=0
10622 bpr 21 
  !set wims_ariane=!append line class_home $superclass_description,$c_,module=adm/class/classes&type=$(tmp_)supervisor&auth_user=$ext_login&class=$wims_superclass\
10593 bpr 22 
to $wims_ariane
10656 bpr 23 
!endif
10172 bpr 24 
!if $wims_superclass!=$empty and $wims_superclass!=$wims_class
10593 bpr 25 
  !if / isin $class_parent and $class_type=1
26 
    !set pname=!defof class_description in wimshome/log/classes/$class_parent/.def
27 
    !set c_=8
17293 guerimand 28 
    !if $class_parent isitemof $wims_supervise or $wims_realuser=supervisor or $wims_realuser=SUPERVISOR
10593 bpr 29 
      !set c_=1
30 
    !endif
10622 bpr 31 
    !set wims_ariane=!append line class_home $pname,$c_,module=adm/class/classes&type=$(tmp_)supervisor&class=$class_parent to $wims_ariane
10486 obado 32 
  !endif
10944 bpr 33 
  !if $seq!=$empty
34 
    !set wims_ariane=!append line class_home $wims_classname,1,cmd=resume to $wims_ariane
35 
  !else
36 
    !set wims_ariane=!append line class_home $wims_classname,8 to $wims_ariane
37 
  !endif
10172 bpr 38 
!endif
39 
 
10593 bpr 40 
!exit
41 
 
10172 bpr 42 
:nosupervisor
43 
 
44 
!if $wims_superclass!=$empty and $wims_superclass!=$wims_class
12822 bpr 45 
  !set superclass_description=!defof class_description in wimshome/log/classes/$wims_superclass/.def
46 
  !set wims_ariane=!append line class_home $superclass_description,1,module=adm/class/classes&type=$(tmp_)participant&auth_user=$ext_login&class=$wims_superclass\
10172 bpr 47 
to $wims_ariane
10042 bpr 48 
!endif
10169 bpr 49 
 
10172 bpr 50 
:subclasses
10169 bpr 51 
!if $wims_superclass!=$empty and $wims_superclass!=$wims_class
52 
  !if / isin $class_parent and $class_type=1
13170 bpr 53 
    !set tmp=!defof class_typename in wimshome/log/classes/$class_parent/.def
54 
    !if $tmp!=program
55 
      !!not an intercourse
56 
      !set pname=!defof class_description in wimshome/log/classes/$class_parent/.def
57 
      !set wims_ariane=!append line class_home $pname,1,module=adm/class/classes&type=$(tmp_)participant&auth_user=$ext_login&class=$class_parent\
10172 bpr 58 
to $wims_ariane
13170 bpr 59 
    !endif
60 
    !reset tmp
10169 bpr 61 
  !endif
10944 bpr 62 
  !if $seq!=$empty
63 
    !set wims_ariane=!append line class_home $wims_classname,1,cmd=resume to $wims_ariane
64 
  !else
65 
    !set wims_ariane=!append line class_home $wims_classname,8 to $wims_ariane
66 
  !endif
10169 bpr 67 
!endif