!!called by participant.phtml, not by authparticipant.phtml
!read adm/class/initclass $wims_class
!reset directlistparticipate directlistsupervisor
!if $directcnt>0
!for i_=1 to $directcnt
!set cl=!word 1 of $(directlist[$i_])
!if /0/ notin $(cl)/
!set type_
=!defof class_typename in wimshome
/log/classes
/$cl/.def
!set direct$type_=!append item $(directlist[$i_]) to $(direct$type_)
!else
!set directtest=!append item $(directlist[$i_]) to $directtest
!endif
!set tmp=!word 2 of $(directlist[$i_])
!if $tmp=supervisor
!set directlistsupervisor=!append item $cl to $directlistsupervisor
!else
!set directlistparticipate=!append item $cl to $directlistparticipate
!endif
!set user_participate_=!append item $directlistparticipate to $user_participate
!set user_participate_=!listuniq $user_participate_
!set user_supervise_=!append item $directlistsupervise to $user_supervise
!set user_supervise_=!listuniq $user_supervise_
!for cls in $user_supervise_
!if $wims_class isin $cls
!let tmp=!replace internal / by , in $cls
!let compsup=!append line $tmp to $compsup
!endif
!let compsup
=!sh
echo "$compsup" | sort | uniq
;
!read adm/class/graphclass supervise\
$compsup
$name_direct:
!for cls in $user_participate_
!if $wims_class isin $cls
!let tmp=!replace internal / by , in $cls
!let compsup=!append line $tmp to $compsup
!endif
!let compsup
=!sh
echo "$compsup" | sort | uniq
; !read adm/class/graphclass participate\
$compsup
!!set directlist2=!items2lines $directlist
!!set directlist2=!lines2rows $directlist2
!!set directlist2=!words2items $directlist2
!!<div class="spacer">
!!!read graphclass $directlist2
!!</div>
!!read tableold.phtml
!if $wims_user=supervisor
$name_text3
!else
$name_text1
!endif
!else
!if $wims_user=supervisor
$name_text2
!else
$name_noaccount
!endif
!endif