Subversion Repositories wimsdev

!! display list of participant in the class

usercnt=!recordcnt wimshome/log/classes/$wims_class/.userlist
nblisttechvar=!linecnt $tv_listtechvar
lttechvarid=$empty
!for k=1 to $nblisttechvar
  don=!line $k of $tv_listtechvar
  !distribute item $don into bl,cl,num
  tmp=!item $k of $tv_listcode
  lttechvarid=!append item user_techvar_$(tmp) to $lttechvarid
!next k

# varfilter proc
!readproc adm/vfilter/varfilter proc
!readproc adm/whoconnect

!! ----- delete suggestion of an user
!if $refresh=1 and $duser!=$empty
  !readproc adm/class/authchars
  duser=!text select char $char_login in $duser
  !sh rm -f $wims_home/log/classes/$wims_class/swork/averagescore.$duser 2>/dev/null;
  !reset refresh duser
!endif