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=!replace internal / by A in $cl
    lttechvarid=!append item user_techvar_$(tmp)_$(num) to $lttechvarid
!next k

# varfilter proc
!readproc adm/vfilter/varfilter proc