Subversion Repositories wimsdev

Rev

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

  1. !read adm/class/initclass $wims_class
  2.  
  3. !if $directcnt>0
  4.  !for i_=1 to $directcnt
  5.   !set cl=!word 1 of $(directlist[$i_])
  6.   !if /0/ notin $(cl)/
  7.     !set type_=!defof class_typename in wimshome/log/classes/$cl/.def
  8.     !set direct$type_=!append item $(directlist[$i_]) to $(direct$type_)
  9.   !else
  10.    !set directtest=!append item $(directlist[$i_]) to $directtest
  11.   !endif
  12.  !next
  13. !set directlist2=!items2lines $directlist
  14. !set directlist2=!lines2rows $directlist2
  15. !set directlist2=!words2items $directlist2
  16.  
  17. $name_direct:
  18.  
  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.