Subversion Repositories wimsdev

!reset exist_cdt

!! test situation for displaying cdt (other level have no access to cdt)

!readproc adm/linkmodule/cdt.proc

!if $wims_allowlink_cdt!=yes

  !exit

!endif

!! link cdt display in any case for supervisor

!if $wims_user=supervisor

  exist_cdt=yes

  !exit

!endif

!! -------- check link for user

!! display cdt for class (alone) ; class (in groupement) ; course (in portal) for class in  portal see next test

!if $wims_supertype=0 or ($wims_supertype=4 and $wims_typename=course) or ($wims_supertype=2 and $wims_typename=class)

  tmp=!defof cdt_nbdate\

cdt_link\

cdt_hide in wimshome/log/classes/$wims_class/cdt/.def

  !distribute line $tmp into tmp2,tmp,tmp3

  !if $tmp3=yes or $tmp2<=0

    !exit

  !endif

  exist_cdt=yes

  !if $tmp!=$empty

    wims_name_cdt=$tmp

    ADD_cdt=$wims_name_cdt

  !endif

!endif

!! in a portal cdt display in a class if there is one open  cdt in one of the course of the class (in the class cdt will be summary of all cdt course)

!if $wims_supertype=4 and $wims_typename=class

  lt_cdt=!record 0 of wimshome/log/classes/$wims_class/courses

  lt_cdt=!column 1 of $lt_cdt

  !for k in $lt_cdt

    tmp=!defof cdt_nbdate,cdt_hide in wimshome/log/classes/$wims_superclass/$k/cdt/.def

    !if $(tmp[1])>0 and $(tmp[2])!=yes

      exist_cdt=yes

      !exit

    !endif

  !next k

!endif

! ---------- end check link for user