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

!endif

!if $wims_user=supervisor or $wims_supertype=0 or ($wims_supertype=4 and $wims_typename=class)

 tmp=!defof cdt_link in wimshome/log/classes/$wims_class/cdt/.def

 !if $tmp!=$empty

  wims_name_cdt=$tmp

  ADD_cdt=$wims_name_cdt

 !endif

!endif

!exit

!!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 in wimshome/log/classes/$wims_superclass/$k/cdt/.def

  !if $tmp>0

   exist_cdt=yes

   !exit

  !endif

 !next k

 !exit

!!endif

!!never going here

!if $wims_supertype=0 or

 tmp=!defof cdt_nbdate\

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

 !distribute line $tmp into tmp1,tmp2

 !if $tmp1>0

  exist_cdt=yes

 !endif

 !if $tmp2!=$empty

  wims_name_cdt=$tmp2

  ADD_cdt=$wims_name_cdt

 !endif

!endif