Subversion Repositories wimsdev

Rev

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

Rev 9979 Rev 10549
Line 122... Line 122...
122 
	error=oldvar_badvar
 122 
	error=oldvar_badvar
123 
	!reset subjob
 123 
	!reset subjob
124 
	!exit
 124 
	!exit
125 
    !endif
 125 
    !endif
126 
    num=!replace internal / by A in $wims_class
 126 
    num=!replace internal / by A in $wims_class
- 
 
 127 
    !increase nb
127 
    num=$(num)_$[$nb+1]
 128 
    num=$(num)_$nb
128 
    liste=!sh grep $techvar $wims_home/s2/$wims_session/oldtechvar.don
 129 
    liste=!sh grep $techvar $wims_home/s2/$wims_session/oldtechvar.don
129 
    !if $liste=$empty
 130 
    !if $liste=$empty
130 
	error=oldvar_nouser
 131 
	error=oldvar_nouser
131 
	!reset subjob
 132 
	!reset subjob
132 
	!exit
 133 
	!exit
133 
    !endif
 134 
    !endif
- 
 
 135 
!! make the new technical variable
- 
 
 136 
    listval=!column 3 of $liste
- 
 
 137 
    listval=!listuniq $listval
- 
 
 138 
    nbval=!itemcnt $listval
- 
 
 139 
    !if $nbval>$MAXnbvalue
- 
 
 140 
       error=badoldvaluesnb
- 
 
 141 
       !reset subjob
- 
 
 142 
       !exit
- 
 
 143 
    !endif
- 
 
 144 
    !fileappend wimshome/log/classes/$wims_class/.techvar :$techvar\
- 
 
 145 
$listval
- 
 
 146 
    !fileappend wimshome/log/classes/$tv_Sclass/.indextechvar :$techvar,$wims_class,$[$nb]
- 
 
 147 
!! put value in participant file.
134 
    nb=!linecnt $liste
 148 
    nb=!linecnt $liste
135 
    !for k=1 to $nb
 149 
    !for k=1 to $nb
136 
	udon=!line $k of $liste
 150 
	udon=!line $k of $liste
137 
	!distribute item $udon into login,bb,val
 151 
	!distribute item $udon into login,bb,val
138 
	!setdef !set user_techvar_$num=$val in wimshome/log/classes/$tv_Sclass/.users/$login
 152 
	!setdef !set user_techvar_$num=$val in wimshome/log/classes/$tv_Sclass/.users/$login
139 
	listlogin=!append item $login to $listlogin
 153 
	listlogin=!append item $login to $listlogin
140 
    !next k
 154 
    !next k
141 
!! make the new technical variable
 - 
 
142 
    listval=!column 3 of $liste
 - 
 
143 
    listval=!listuniq $listval
 - 
 
144 
    !fileappend wimshome/log/classes/$wims_class/.techvar :$techvar\
 - 
 
145 
$listval
 - 
 
146 
    !fileappend wimshome/log/classes/$tv_Sclass/.indextechvar :$techvar,$wims_class,$[$nb]
 - 
 
147 
    !restart module=adm/class/techvar
 155 
    !restart module=adm/class/techvar
148 
!endif
 156 
!endif
149 
 
 157 
 
150 
!if $subjob=modify
 158 
!if $subjob=modify
151 
    !if $techvar notitemof $listmodify
 159 
    !if $techvar notitemof $listmodify