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