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 |
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 |
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 |
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_$( |
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 |