Subversion Repositories wimsdev

(root)/trunk/wims/public_html/modules/adm/class/techvar/oldvar.proc – Rev 10549 → 10550



    !if $techvar notitemof $listmodify
	error=oldvar_badvar
	!reset subjob
	!exit
    !endif
 
 
    liste=!sh grep $techvar $wims_home/s2/$wims_session/oldtechvar.don
    !if $liste=$empty
	error=oldvar_nouser
	!reset subjob
	!exit

Rev 10549	Rev 10550
Line 159...	Line 159...
159	!if $techvar notitemof $listmodify	159	!if $techvar notitemof $listmodify
160	error=oldvar_badvar	160	error=oldvar_badvar
161	!reset subjob	161	!reset subjob
162	!exit	162	!exit
163	!endif	163	!endif
164	num=!replace internal / by A in $wims_class	-
165	num=$(num)_$[$nb+1]	-
166	liste=!sh grep $techvar $wims_home/s2/$wims_session/oldtechvar.don	164	liste=!sh grep $techvar $wims_home/s2/$wims_session/oldtechvar.don
167	!if $liste=$empty	165	!if $liste=$empty
168	error=oldvar_nouser	166	error=oldvar_nouser
169	!reset subjob	167	!reset subjob
170	!exit	168	!exit