Subversion Repositories wimsdev

Rev

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

Rev 9960 Rev 9983
Line 43... Line 43...
43 
!! save
 43 
!! save
44 
    !fileappend wimshome/log/classes/$wims_class/.techvar :$tc_name\
 44 
    !fileappend wimshome/log/classes/$wims_class/.techvar :$tc_name\
45 
$tc_value
 45 
$tc_value
46 
    !fileappend wimshome/log/classes/$tv_Sclass/.indextechvar :$tc_name,$wims_class,$[$nblocalvar+1]
 46 
    !fileappend wimshome/log/classes/$tv_Sclass/.indextechvar :$tc_name,$wims_class,$[$nblocalvar+1]
47 
    !restart module=adm/class/techvar
 47 
    !restart module=adm/class/techvar
- 
 
 48 
!else
- 
 
 49 
	!if $nblocalvar=0
- 
 
 50 
	olddon=!record 0 of wimshome/s2/$wims_session/oldtechvar.don
- 
 
 51 
	!if $olddon=$empty
- 
 
 52 
	    olddon=!sh cd $wims_home/log/classes/$tv_Sclass/.users/;\
- 
 
 53 
grep -r user__ * | awk -F= '$$2!=""{print $$0}'
- 
 
 54 
	    olddon=!replace internal :!set user__ by , in $olddon
- 
 
 55 
	    olddon=!replace internal = by , in $olddon
- 
 
 56 
	    !if $olddon=$empty
- 
 
 57 
	        !writefile wimshome/s2/$wims_session/oldtechvar.don EMPTY
- 
 
 58 
	    !else
- 
 
 59 
		!writefile wimshome/s2/$wims_session/oldtechvar.don $olddon
- 
 
 60 
	    !endif
- 
 
 61 
	!endif
- 
 
 62 
	!if EMPTY=$olddon
- 
 
 63 
	    !reset olddon
- 
 
 64 
	!endif
- 
 
 65 
	!if $olddon!=$empty
- 
 
 66 
		error=witholdvar
- 
 
 67 
	!endif
- 
 
 68 
	!endif
48 
!endif
 69 
!endif
49 
 
 70