Subversion Repositories wimsdev

Rev

Rev 9960 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9960 Rev 10702
Line 4... Line 4...
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=!replace internal / by A in $cl
 9 
    tmp=!item $k of $tv_listcode
10 
    lttechvarid=!append item user_techvar_$(tmp)_$(num) 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