Subversion Repositories wimsdev

!read adm/class/initclass $wims_class

!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

 !next

!set directlist2=!items2lines $directlist

!set directlist2=!lines2rows $directlist2

!set directlist2=!words2items $directlist2

$name_direct:

<div class="spacer">

!read classgraph $directlist2

</div>

!!read tableold.phtml

 !if $wims_user=supervisor

   $name_text3

 !else

   $name_text1

 !endif

!else

 !if $wims_user=supervisor

  $name_text2

 !else

  $name_noaccount

 !endif

!endif