filter=yes
!reset varfilter_
!set varfilter_cnt=!linecnt $varfilter
!for v=1 to $varfilter_cnt
    var_line=!singlespace $(varfilter[$v;])
    var_line =!replace $ $ by , in $var_line
    varfilter_=!append line $var_line to $varfilter_
!next v
!reset listuser
!for id in $listiduser
    !reset var_filter_test
    !read adm/class/testfilter $id\
$varfilter_
    !if $var_filter_test=1
      listuser=!append item $id to $listuser
    !endif
!next id
!if $listuser=$empty
    !reset job
    !exit
!endif

