Subversion Repositories wimsdev

!endif

!if $wims_user=supervisor

  !! --- check for list of user

  nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist

  !reset ulist,flist,llist,uulist

  !for i=1 to $nbuser

    u_=!record $i of wimshome/log/classes/$wims_class/.userlist

    !distribute item $u_ into l_,f_,n_

    ulist=!append item $n_ to $ulist

    flist=!append item $f_ to $flist

    llist=!append item $l_ to $llist

  !next i