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 |
|
17 | error=nolocalvartech |
18 |
|
18 | job=userlist |
19 |
|
19 | !reset user,tc_abandon,tc_set |
20 |
|
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 |
|
37 | !reset tc_abandon,tc_set,user |
38 |
|
38 | job=userlist |
39 |
|
39 | !changeto $job.proc |
40 |
|
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 |
|
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 |
|
53 | !reset tc_set |
54 | !endif |
54 | !endif |