Subversion Repositories wimsdev

Rev

Rev 10622 | Rev 10656 | Go to most recent revision | 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
10634 bpr 17 
!if $wims_class isitemof $wims_supervise or $wims_realuser=supervisor
10593 bpr 18 
  !set c_=1
19 
!endif
10622 bpr 20 
  !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 21 
to $wims_ariane
10172 bpr 22 
!if $wims_superclass!=$empty and $wims_superclass!=$wims_class
10593 bpr 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
10634 bpr 26 
    !if $class_parent isitemof $wims_supervise or $wims_realuser=supervisor
10593 bpr 27 
      !set c_=1
28 
    !endif
10622 bpr 29 
    !set wims_ariane=!append line class_home $pname,$c_,module=adm/class/classes&type=$(tmp_)supervisor&class=$class_parent to $wims_ariane
10486 obado 30 
  !endif
10622 bpr 31 
  !set wims_ariane=!append line class_home $wims_classname,8 to $wims_ariane
10172 bpr 32 
!endif
33 
 
10593 bpr 34 
!exit
35 
 
10172 bpr 36 
:nosupervisor
37 
 
38 
!if $wims_superclass!=$empty and $wims_superclass!=$wims_class
10593 bpr 39 
    !set superclass_description=!defof class_description in wimshome/log/classes/$wims_superclass/.def
10622 bpr 40 
    !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 41 
to $wims_ariane
10042 bpr 42 
!endif
10169 bpr 43 
 
10172 bpr 44 
:subclasses
10169 bpr 45 
!if $wims_superclass!=$empty and $wims_superclass!=$wims_class
46 
  !if / isin $class_parent and $class_type=1
47 
    !set pname=!defof class_description in wimshome/log/classes/$class_parent/.def
10622 bpr 48 
    !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 49 
to $wims_ariane
10169 bpr 50 
  !endif
10622 bpr 51 
  !set wims_ariane=!append line class_home $wims_classname,8 to $wims_ariane
10169 bpr 52 
!endif
10622 bpr 53 
 
54