Subversion Repositories wimsdev

 !for i_=1 to $directcnt

  !for i_=1 to $directcnt

  !set cl=!word 1 of $(directlist[$i_])

    !set cl=!word 1 of $(directlist[$i_])

  !if /0/ notin $(cl)/

    !if /0/ notin $(cl)/

    !set type_=!defof class_typename in wimshome/log/classes/$cl/.def

      !set type_=!defof class_typename in wimshome/log/classes/$cl/.def

    !set direct$type_=!append item $(directlist[$i_]) to $(direct$type_)

      !set direct$type_=!append item $(directlist[$i_]) to $(direct$type_)

  !else

    !else

    !set directtest=!append item $(directlist[$i_]) to $directtest

      !set directtest=!append item $(directlist[$i_]) to $directtest

  !endif

    !endif

  !set tmp=!word 2 of $(directlist[$i_])

    !set tmp=!word 2 of $(directlist[$i_])

  !if $tmp=supervisor

    !if $tmp=supervisor

    !set directlistsupervisor=!append item $cl to $directlistsupervisor

      !set directlistsupervisor=!append item $cl to $directlistsupervisor

  !else

    !else

    !set directlistparticipate=!append item $cl to $directlistparticipate

      !set directlistparticipate=!append item $cl to $directlistparticipate

  !endif

    !endif

 !next

  !next

 !set user_participate_=!append item $directlistparticipate to $user_participate

  !set user_participate_=!append item $directlistparticipate to $user_participate

 !set user_participate_=!listuniq $user_participate_

  !set user_participate_=!listuniq $user_participate_

 !set user_supervise_=!append item $directlistsupervise to $user_supervise

  !set user_supervise_=!append item $directlistsupervise to $user_supervise

 !set user_supervise_=!listuniq $user_supervise_

  !set user_supervise_=!listuniq $user_supervise_

!! finally leave the old table ! too much trouble

  !! finally leave the old table ! too much trouble

!!!for cls in $user_supervise_

  !!!for cls in $user_supervise_

!!  !if $wims_class isin $cls

  !!  !if $wims_class isin $cls

!!   !let tmp=!replace internal / by , in $cls

  !!   !let tmp=!replace internal / by , in $cls

!!    !let compsup=!append line $tmp to $compsup

  !!    !let compsup=!append line $tmp to $compsup

!!  !endif

  !!  !endif

!!!next cls

  !!!next cls

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

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

!!!if / isin $user_participate_

  !!!if / isin $user_participate_

!! !for cls in $user_participate_

  !! !for cls in $user_participate_

!!  !if $wims_class isin $cls

  !!  !if $wims_class isin $cls

!!    !let tmp=!replace internal / by , in $cls

  !!    !let tmp=!replace internal / by , in $cls

!!    !let compsup=!append line $tmp to $compsup

  !!    !let compsup=!append line $tmp to $compsup

!!  !endif

  !!  !endif

!! !next cls

  !! !next cls

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

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

!! !read adm/class/graphclass participate\

  !! !read adm/class/graphclass participate\

!!$compsup

  !!$compsup

!! !reset compsup

  !! !reset compsup

!! !goto enter

  !! !goto enter

!!!endif

  !!!endif

!read tableold.phtml

  !read tableold.phtml

:enter

  :enter

<div>

  <div>

 !if $wims_user=supervisor

  !if $wims_user=supervisor

   $name_text3

    $name_text3

 !else

  !else

   $name_text1

    $name_text1

 !endif

  !endif

 !if $wims_user=supervisor

  !if $wims_user=supervisor

  $name_text2

    $name_text2

 !else

  !else

  $name_noaccount

    $name_noaccount

 !endif

  !endif