Subversion Repositories wimsdev

!!test=!defof allowed_optional_module in wimshome/log/wims.conf
!!!if class/tchat notitemof $test
!!  notallowed=1
!!  !exit
!!!endif

!if $wims_class!=$empty
  !sh mkdir -p $wims_home/log/classes/$wims_class/tchat;
  statuttchat=open
!else
  statuttchat=closed
  !exit
!endif

!if $wims_user=supervisor and $ulist=$empty
  !! --- check for list of user
  nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist
  !reset ulist,nlist
  !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
    nlist=!append item $f_ $l_ to $nlist
  !next i
!endif