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_

!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

!!set directlist2=!items2lines $directlist

!!set directlist2=!lines2rows $directlist2

!!set directlist2=!words2items $directlist2

!!<div class="spacer">

!read adm/class/graphclass $directlist

!!</div>

!read tableold.phtml

:enter

 !if $wims_user=supervisor

   $name_text3

 !else

   $name_text1

 !endif

!else

 !if $wims_user=supervisor

  $name_text2

 !else

  $name_noaccount

 !endif

!endif