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 |
|
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 |