Subversion Repositories wimsdev

Rev

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

Rev 10702 Rev 10736
Line 125... Line 125...
125
!if $voteset!=$empty
125
!if $voteset!=$empty
126
 !setdef $voteset in $votedir/$vote.votes
126
 !setdef $voteset in $votedir/$vote.votes
127
!endif
127
!endif
128
 
128
 
129
!! --------------------------
129
!! --------------------------
130
!! these lines are writing the variable user__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
 
132
 
133
 
133
 
134
ccc=!itemcnt $uvcnt
134
ccc=!itemcnt $uvcnt
135
!if $ccc>0
135
!if $ccc>0
136
 !readproc adm/vfilter/listvarfilter.proc
136
 !readproc adm/vfilter/listvarfilter.proc
137
 localname=!item $tv_listlocal of $tv_listname
-
 
138
 !for i=1 to $ccc
137
 !for i=1 to $ccc
139
  uvc=!item $i of $uvcnt
138
  uvc=!item $i of $uvcnt
140
  uvn=!item $i of $uvname
139
  uvn=!item $i of $uvname
141
!! no registery if the technical variable is not already defined
140
!! no registery if the technical variable is not already defined
142
  !if $uvn isitemof $localname
141
  !if $uvn isitemof $tv_listlocalcode
143
      uvv=!line $i of $uvval
142
      uvv=!line $i of $uvval
144
      uvv=!item $(parm$uvc)+1 of $uvv
143
      uvv=!item $(parm$uvc)+1 of $uvv
145
!! check if the value exists for this technical variable (only defined values can be save in user .def file)
144
!! check if the value exists for this technical variable (only defined values can be save in user .def file)
146
      po=!positionof item $uvn in $tv_listname
145
      po=!positionof item $uvn in $tv_listcode
147
      don=!line $po of $tv_listtechvar
146
      don=!line $po of $tv_listtechvar
148
      !distribute item $don into name,classid,number
147
      !distribute item $don into name,classid,number
149
      don=!record $number of wimshome/log/classes/$wims_class/.techvar
148
      don=!record $number of wimshome/log/classes/$wims_class/.techvar
150
      don=!line 2 of $don
149
      don=!line 2 of $don
151
      !if $uvv notitemof $don
150
      !if $uvv notitemof $don
152
	uvv=$empty
151
	uvv=$empty
153
      !endif
152
      !endif
154
      classid=!replace internal / by _ in $classid
153
      classid=!replace internal / by _ in $classid
155
      !setdef !set user_techvar_$(classid)_$number=$uvv in $userfile
154
      !setdef !set user_techvar_$(uvn)=$uvv in $userfile
156
  !endif
155
  !endif
157
 !next i
156
 !next i
158
!endif
157
!endif
159
!! -------------------------------------------
158
!! -------------------------------------------
160
 
159