Subversion Repositories wimsdev

!endif

!endif

!! --------------------------

!! --------------------------

!! these lines are writing the variable user_techvar_ttt in the user file when

!! these lines are writing the variable user_techvar_ttt in the user file when

!!\uservar{ttt, ....}

!!\uservar{ttt, ....}

ccc=!itemcnt $uvcnt

ccc=!itemcnt $uvcnt

!if $ccc>0

!if $ccc>0

  !readproc adm/vfilter/listvarfilter.proc

  !readproc adm/vfilter/listvarfilter.proc

  !for i=1 to $ccc

  !for i=1 to $ccc

      don=!line $po of $tv_listtechvar

      don=!line $po of $tv_listtechvar

      !distribute item $don into name,classid,number

      !distribute item $don into name,classid,number

      don=!record $number of wimshome/log/classes/$wims_class/.techvar

      don=!record $number of wimshome/log/classes/$wims_class/.techvar

      don=!line 2 of $don

      don=!line 2 of $don

      !if $uvv notitemof $don

      !if $uvv notitemof $don

      !endif

      !endif

      classid=!replace internal / by _ in $classid

      classid=!replace internal / by _ in $classid

      !setdef !set user_techvar_$(uvn)=$uvv in $userfile

      !setdef !set user_techvar_$(uvn)=$uvv in $userfile

    !endif

    !endif

  !next i

  !next i