Subversion Repositories wimsdev

Rev

Rev 10634 | Rev 10944 | 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
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
10634 bpr 28 
    !if $class_parent isitemof $wims_supervise 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
10622 bpr 33 
  !set wims_ariane=!append line class_home $wims_classname,8 to $wims_ariane
10172 bpr 34 
!endif
35 
 
10593 bpr 36 
!exit
37 
 
10172 bpr 38 
:nosupervisor
39 
 
40 
!if $wims_superclass!=$empty and $wims_superclass!=$wims_class
10593 bpr 41 
    !set superclass_description=!defof class_description in wimshome/log/classes/$wims_superclass/.def
10622 bpr 42 
    !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 43 
to $wims_ariane
10042 bpr 44 
!endif
10169 bpr 45 
 
10172 bpr 46 
:subclasses
10169 bpr 47 
!if $wims_superclass!=$empty and $wims_superclass!=$wims_class
48 
  !if / isin $class_parent and $class_type=1
49 
    !set pname=!defof class_description in wimshome/log/classes/$class_parent/.def
10622 bpr 50 
    !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 51 
to $wims_ariane
10169 bpr 52 
  !endif
10622 bpr 53 
  !set wims_ariane=!append line class_home $wims_classname,8 to $wims_ariane
10169 bpr 54 
!endif
10622 bpr 55 
 
56