Subversion Repositories wimsdev

!reset exist_cdt

!if $wims_supertype!=0 and\

    ($wims_supertype!=2 or $wims_typename!=class) and\

    ($wims_supertype!=4 or $wims_typename notitemof class,course)

  !exit

!endif

!if $wims_user=supervisor

  exist_cdt=yes

  !exit

!endif

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

  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

!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