Subversion Repositories wimsdev

!!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

 !next

!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_

!! finally leave the old table ! too much trouble

!!!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

!!!next cls

!!!let compsup=!sh echo "$compsup" | sort | uniq;

!!!read adm/class/graphclass supervise\

!!$compsup

!reset compsup

$name_direct:

!!!if / isin $user_participate_

!! !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

!! !next cls

!! !let compsup=!sh echo "$compsup" | sort | uniq;

!! !read adm/class/graphclass participate\

!!$compsup

!! !reset compsup

!! !goto enter

!!!endif

!read tableold.phtml

:enter

<div>

 !if $wims_user=supervisor

   $name_text3

 !else

   $name_text1

 !endif

!else

 !if $wims_user=supervisor

  $name_text2

 !else

  $name_noaccount

 !endif

!endif

</div>