Subversion Repositories wimsdev

Rev

Rev 10651 | Rev 10747 | 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.  
  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.  !next
  14. $name_direct:
  15.  
  16. !!set directlist2=!items2lines $directlist
  17. !!set directlist2=!lines2rows $directlist2
  18. !!set directlist2=!words2items $directlist2
  19. !!<div class="spacer">
  20. !!!read classgraph $directlist2
  21. !!</div>
  22.  
  23. !read tableold.phtml
  24.  
  25.  !if $wims_user=supervisor
  26.    $name_text3
  27.  !else
  28.    $name_text1
  29.  !endif
  30. !else
  31.  !if $wims_user=supervisor
  32.   $name_text2
  33.  !else
  34.   $name_noaccount
  35.  !endif
  36. !endif
  37.