Subversion Repositories wimsdev

!set statut=!item 1 of $wims_read_parm

!set compsup=!item 2 to -1 of $wims_read_parm

!set compsup=!nospace $compsup

!let tab=0

!for cls in $compsup

 !if $wims_class/ notin $cls

   !goto encls

 !endif

 !let don=!defof class_typename,class_description,class_supervisor,class_parent in wimshome/log/classes/$cls/.def

 !let t=!positionof item $(don[1]) in level,class,program,course

 !if $t=0 or $t=$empty

    !goto encls

 !endif

 !if $t=3

  !let ta=2

 !else

  !let ta=$t

 !endif

 !if $tab!=$ta

  !if $tab>$ta

   !for k=$ta+1 to $tab

    </ul>

   !next k

  !else

   !for k=$tab+1 to $ta

    <ul class="wims_subclasses">

   !next k

  !endif

 !endif

 !let tab=$ta

 !if $t=4

  !let tmp=!defof class_typename in wimshome/log/classes/$(don[4])/.def

  !if $tmp=program

   !let t=5

  !endif

 !endif

 <li>$arr <span class="wims_classes_direct_$(don[1])"> $(CL_Name[$t]) :

 !if $cls notitemof $(user_$statut)

  $(don[2])

 !else

   !if $statut=supervise

     !href module=adm/class/classes&type=authsupervisor&class=$cls&auth_user=supervisor $(don[2])

   !else

     !href module=adm/class/classes&type=authparticipant&class=$cls&auth_user=$u_ $(don[2])

   !endif

 !endif

 ($(don[3])) </span> </li>

:encls

!next cls

!for k=1 to $tab

 </ul>

!next k

!reset compsup