Subversion Repositories wimsdev

Rev

Rev 10702 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
9960 guerimand 1
!! display list of participant in the class
2
 
3
usercnt=!recordcnt wimshome/log/classes/$wims_class/.userlist
4
nblisttechvar=!linecnt $tv_listtechvar
5
lttechvarid=$empty
6
!for k=1 to $nblisttechvar
12488 bpr 7
  don=!line $k of $tv_listtechvar
8
  !distribute item $don into bl,cl,num
9
  tmp=!item $k of $tv_listcode
10
  lttechvarid=!append item user_techvar_$(tmp) to $lttechvarid
9960 guerimand 11
!next k
12
 
13
# varfilter proc
14
!readproc adm/vfilter/varfilter proc