Subversion Repositories wimsdev

Rev

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

Rev 7198 Rev 10146
Line 127... Line 127...
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__ttt in the user file when
131 
!!\uservar{ttt, ....}
 131 
!!\uservar{ttt, ....}
- 
 
 132 
 
132 
 
 133 
 
133 
ccc=!itemcnt $uvcnt
 134 
ccc=!itemcnt $uvcnt
- 
 
 135 
!if $ccc>0
- 
 
 136 
 !readproc adm/vfilter/listvarfilter.proc
- 
 
 137 
 localname=!item $tv_listlocal of $tv_listname
134 
!for i=1 to $ccc
 138 
 !for i=1 to $ccc
135 
 uvc=!item $i of $uvcnt
 139 
  uvc=!item $i of $uvcnt
136 
 uvn=!item $i of $uvname
 140 
  uvn=!item $i of $uvname
- 
 
 141 
!! no registery if the technical variable is not already define
- 
 
 142 
  !if $uvn isitemof $localname
137 
 uvv=!line $i of $uvval
 143 
      uvv=!line $i of $uvval
138 
 uvv=!item $(parm$uvc)+1 of $uvv
 144 
      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)
- 
 
 146 
      po=!positionof item $uvn in $tv_listname
- 
 
 147 
      don=!line $po of $tv_listtechvar
- 
 
 148 
      !distribute item $don into name,classid,number
- 
 
 149 
      don=!record $number of wimshome/log/classes/$wims_class/.techvar
- 
 
 150 
      don=!line 2 of $don
- 
 
 151 
      !if $uvv notitemof $don
- 
 
 152 
	uvv=$empty
- 
 
 153 
      !endif
- 
 
 154 
      classid=!replace internal / by A in $classid
139 
 !setdef !set user__$uvn=$uvv in $userfile
 155 
      !setdef !set user_techvar_$(classid)_$number=$uvv in $userfile
- 
 
 156 
  !endif
140 
!next uv
 157 
 !next i
- 
 
 158 
!endif
141 
!! -------------------------------------------
 159 
!! -------------------------------------------
142 
 
 160 
 
143 
!restart module=adm/vote&job=read&vote=$vote
 161 
!restart module=adm/vote&job=read&vote=$vote
144 
 
 162