Subversion Repositories wimsdev

Rev

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

Rev 10702 Rev 12488
Line 12... Line 12...
12 
	!reset user,tc_abandon,tc_set
 12 
	!reset user,tc_abandon,tc_set
13 
	!changeto $job.proc
 13 
	!changeto $job.proc
14 
!endif
 14 
!endif
15 
 
 15 
 
16 
!if $tv_listlocal=$empty
 16 
!if $tv_listlocal=$empty
17 
    error=nolocalvartech
 17 
  error=nolocalvartech
18 
    job=userlist
 18 
  job=userlist
19 
    !reset user,tc_abandon,tc_set
 19 
  !reset user,tc_abandon,tc_set
20 
    !changeto $job.proc
 20 
  !changeto $job.proc
21 
!endif
 21 
!endif
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
Line 32... Line 32...
32 
	old_$k=$(user_techvar_$(id_$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
38 
    job=userlist
 38 
  job=userlist
39 
    !changeto $job.proc
 39 
  !changeto $job.proc
40 
    !exit
 40 
  !exit
41 
!endif
 41 
!endif
42 
 
 42 
 
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)=$(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
54 
!endif
 54 
!endif