Subversion Repositories wimsdev

Rev

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

Rev 10550 Rev 10702
Line 121... Line 121...
121 
    !if $techvar notitemof $listnew
 121 
    !if $techvar notitemof $listnew
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 _ in $wims_class
127 
    !increase nb
 127 
    !increase nb
128 
    num=$(num)_$nb
 128 
    num=$(num)_$nb
129 
    liste=!sh grep $techvar $wims_home/s2/$wims_session/oldtechvar.don
 129 
    liste=!sh grep $techvar $wims_home/s2/$wims_session/oldtechvar.don
130 
    !if $liste=$empty
 130 
    !if $liste=$empty
131 
	error=oldvar_nouser
 131 
	error=oldvar_nouser
Line 166... Line 166...
166 
	error=oldvar_nouser
 166 
	error=oldvar_nouser
167 
	!reset subjob
 167 
	!reset subjob
168 
	!exit
 168 
	!exit
169 
    !endif
 169 
    !endif
170 
    nb=!linecnt $liste
 170 
    nb=!linecnt $liste
171 
    num=!positionof item $techvar in $tv_listname
 171 
    num0=!positionof item $techvar in $tv_listname
172 
    num=$(tv_listtechvar[$num;3])
 172 
    num=$(tv_listtechvar[$num0;3])
173 
    cls=!replace internal / by A in $wims_class
 173 
    cls=!item $num0 of $tv_listcode
174 
    !for k=1 to $nb
 174 
    !for k=1 to $nb
175 
	udon=!line $k of $liste
 175 
	udon=!line $k of $liste
176 
	!distribute item $udon into login,bb,val
 176 
	!distribute item $udon into login,bb,val
177 
	!setdef !set user_techvar_$(cls)_$num=$val in wimshome/log/classes/$tv_Sclass/.users/$login
 177 
	!setdef !set user_techvar_$(cls)=$val in wimshome/log/classes/$tv_Sclass/.users/$login
178 
	listlogin=!append item $login to $listlogin
 178 
	listlogin=!append item $login to $listlogin
179 
    !next k
 179 
    !next k
180 
!! modify list of values (if necessary) of technical variable
 180 
!! modify list of values (if necessary) of technical variable
181 
    listval=!column 3 of $liste
 181 
    listval=!column 3 of $liste
182 
    listval=!listuniq $listval
 182 
    listval=!listuniq $listval
Line 196... Line 196...
196 
        !filewrite wimshome/log/classes/$wims_class/.techvar $output
 196 
        !filewrite wimshome/log/classes/$wims_class/.techvar $output
197 
    !endif
 197 
    !endif
198 
    !restart module=adm/class/techvar&job=userlist
 198 
    !restart module=adm/class/techvar&job=userlist
199 
!endif
 199 
!endif
200 
 
 200 
 
201 
!!debug detectee : $listoldtmp \
 - 
 
202 
!!chargeable : $listold\
 - 
 
203 
!!mauvais nom : $listbadname\
 - 
 
204 
!!nom deja en utilisation et non modifiable: $listforbname
 - 
 
205 
 
 201