Subversion Repositories wimsdev

Rev

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

Rev 12479 Rev 14335
Line 127... Line 127...
127
!endif
127
!endif
128
 
128
 
129
!! --------------------------
129
!! --------------------------
130
!! these lines are writing the variable user_techvar_ttt in the user file when
130
!! these lines are writing the variable user_techvar_ttt in the user file when
131
!!\uservar{ttt, ....}
131
!!\uservar{ttt, ....}
132
 
-
 
133
 
132
 
134
ccc=!itemcnt $uvcnt
133
ccc=!itemcnt $uvcnt
135
!if $ccc>0
134
!if $ccc>0
136
  !readproc adm/vfilter/listvarfilter.proc
135
  !readproc adm/vfilter/listvarfilter.proc
137
  !for i=1 to $ccc
136
  !for i=1 to $ccc
Line 146... Line 145...
146
      don=!line $po of $tv_listtechvar
145
      don=!line $po of $tv_listtechvar
147
      !distribute item $don into name,classid,number
146
      !distribute item $don into name,classid,number
148
      don=!record $number of wimshome/log/classes/$wims_class/.techvar
147
      don=!record $number of wimshome/log/classes/$wims_class/.techvar
149
      don=!line 2 of $don
148
      don=!line 2 of $don
150
      !if $uvv notitemof $don
149
      !if $uvv notitemof $don
151
	      uvv=$empty
150
        uvv=$empty
152
      !endif
151
      !endif
153
      classid=!replace internal / by _ in $classid
152
      classid=!replace internal / by _ in $classid
154
      !setdef !set user_techvar_$(uvn)=$uvv in $userfile
153
      !setdef !set user_techvar_$(uvn)=$uvv in $userfile
155
    !endif
154
    !endif
156
  !next i
155
  !next i