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 tmp,tmp2,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