!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>
!else
!for k=$tab+1 to $ta
<ul class="wims_subclasses">
!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
!for k=1 to $tab
</ul>