Subversion Repositories wimsdev

Rev

Rev 10702 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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