Subversion Repositories wimsdev

Rev

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

Rev 9960 Rev 10702
Line 22... Line 22...
22 
 
 22 
 
23 
# check of local techvar list of values
 23 
# check of local techvar list of values
24 
!for k in $tv_listlocal
 24 
!for k in $tv_listlocal
25 
	don=!line $k of $tv_listtechvar
 25 
	don=!line $k of $tv_listtechvar
26 
	!distribute item $don into name,cls,num_$k
 26 
	!distribute item $don into name,cls,num_$k
27 
	id_$k=!replace internal / by A in $cls
 27 
	id_$k=!item $k of $tv_listcode
28 
	tmp=!record $(num_$k) of wimshome/log/classes/$wims_class/.techvar
 28 
	tmp=!record $(num_$k) of wimshome/log/classes/$wims_class/.techvar
29 
	tmp=!line 2 of $tmp
 29 
	tmp=!line 2 of $tmp
30 
	ltprompt_$k=$name_empty,$tmp
 30 
	ltprompt_$k=$name_empty,$tmp
31 
	ltval_$k=_EMPTY_,$tmp
 31 
	ltval_$k=_EMPTY_,$tmp
32 
	old_$k=$(user_techvar_$(id_$k)_$(num_$k))
 32 
	old_$k=$(user_techvar_$(id_$k))
33 
	!bound old_$k within $(ltval_$k) default _EMPTY_
 33 
	!bound old_$k within $(ltval_$k) default _EMPTY_
34 
!next k
 34 
!next k
35 
 
 35 
 
36 
!if $tc_abandon!=$empty
 36 
!if $tc_abandon!=$empty
37 
    !reset tc_abandon,tc_set,user
 37 
    !reset tc_abandon,tc_set,user
Line 43... Line 43...
43 
!if $tc_set!=$empty
 43 
!if $tc_set!=$empty
44 
# check validity of new value for techvar
 44 
# check validity of new value for techvar
45 
	wdon=$empty
 45 
	wdon=$empty
46 
	!for k in $tv_listlocal
 46 
	!for k in $tv_listlocal
47 
		!bound techval$(num_$k) within $(ltval_$k) default $(old_$k)
 47 
		!bound techval$(num_$k) within $(ltval_$k) default $(old_$k)
48 
		wdon=!append line !set user_techvar_$(id_$k)_$(num_$k)=$(techval$(num_$k)) to $wdon
 48 
		wdon=!append line !set user_techvar_$(id_$k)=$(techval$(num_$k)) to $wdon
49 
		old_$k=$(techval$(num_$k))
 49 
		old_$k=$(techval$(num_$k))
50 
	!next k
 50 
	!next k
51 
	wdon=!replace internal _EMPTY_ by $empty in $wdon
 51 
	wdon=!replace internal _EMPTY_ by $empty in $wdon
52 
	!setdef $wdon in $userdef
 52 
	!setdef $wdon in $userdef
53 
    	!reset tc_set
 53 
    	!reset tc_set