Subversion Repositories wimsdev

Rev

Rev 10747 | Rev 10768 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !!called by participant.phtml, not by authparticipant.phtml
  2. !read adm/class/initclass $wims_class
  3. !reset directlistparticipate directlistsupervisor
  4. !if $directcnt>0
  5.  !for i_=1 to $directcnt
  6.   !set cl=!word 1 of $(directlist[$i_])
  7.   !if /0/ notin $(cl)/
  8.     !set type_=!defof class_typename in wimshome/log/classes/$cl/.def
  9.     !set direct$type_=!append item $(directlist[$i_]) to $(direct$type_)
  10.   !else
  11.     !set directtest=!append item $(directlist[$i_]) to $directtest
  12.   !endif
  13.   !set tmp=!word 2 of $(directlist[$i_])
  14.   !if $tmp=supervisor
  15.     !set directlistsupervisor=!append item $cl to $directlistsupervisor
  16.   !else
  17.     !set directlistparticipate=!append item $cl to $directlistparticipate
  18.   !endif
  19.  !next
  20. !set user_participate_=!append item $directlistparticipate to $user_participate
  21. !set user_participate_=!listuniq $user_participate_
  22. !set user_supervise_=!append item $directlistsupervise to $user_supervise
  23. !set user_supervise_=!listuniq $user_supervise_
  24.  
  25. !for cls in $user_supervise_
  26.   !if $wims_class isin $cls
  27.     !let tmp=!replace internal / by , in $cls
  28.     !let compsup=!append line $tmp to $compsup
  29.   !endif
  30. !next cls
  31. !let compsup=!sh echo "$compsup" | sort | uniq;
  32.  
  33. !read adm/class/graphclass supervise\
  34. $compsup
  35. !reset compsup
  36.  
  37. $name_direct:
  38. !if / isin $user_participate_
  39.  !for cls in $user_participate_
  40.   !if $wims_class isin $cls
  41.     !let tmp=!replace internal / by , in $cls
  42.     !let compsup=!append line $tmp to $compsup
  43.   !endif
  44.  !next cls
  45.  !let compsup=!sh echo "$compsup" | sort | uniq;
  46.  !read adm/class/graphclass participate\
  47. $compsup
  48.  !reset compsup
  49.  !goto enter
  50. !endif
  51. !!set directlist2=!items2lines $directlist
  52. !!set directlist2=!lines2rows $directlist2
  53. !!set directlist2=!words2items $directlist2
  54. !!<div class="spacer">
  55. !read adm/class/graphclass $directlist
  56. !!</div>
  57.  
  58. !read tableold.phtml
  59. :enter
  60.  !if $wims_user=supervisor
  61.    $name_text3
  62.  !else
  63.    $name_text1
  64.  !endif
  65. !else
  66.  !if $wims_user=supervisor
  67.   $name_text2
  68.  !else
  69.   $name_noaccount
  70.  !endif
  71. !endif
  72.