Rev 12488 | Rev 15862 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
9960 | guerimand | 1 | nblisttechvar=!linecnt $tv_listtechvar |
2 | v=!values v for v=1 to $nblisttechvar |
||
3 | listglobal=!listcomplement $tv_listlocal in $v |
||
4 | |||
5 | |||
6 | !reset user_exists,$lttechvarid |
||
7 | !readproc adm/class/userdef classes,$wims_class,$user |
||
8 | !read $userdef |
||
9 | !if $user_exists!=yes |
||
14335 | bpr | 10 | error=baduser |
11 | job=userlist |
||
12 | !reset user,tc_abandon,tc_set |
||
13 | !changeto $job.proc |
||
9960 | guerimand | 14 | !endif |
15 | |||
16 | !if $tv_listlocal=$empty |
||
12488 | bpr | 17 | error=nolocalvartech |
18 | job=userlist |
||
19 | !reset user,tc_abandon,tc_set |
||
20 | !changeto $job.proc |
||
9960 | guerimand | 21 | !endif |
22 | |||
23 | # check of local techvar list of values |
||
24 | !for k in $tv_listlocal |
||
14335 | bpr | 25 | don=!line $k of $tv_listtechvar |
26 | !distribute item $don into name,cls,num_$k |
||
27 | id_$k=!item $k of $tv_listcode |
||
28 | tmp=!record $(num_$k) of wimshome/log/classes/$wims_class/.techvar |
||
29 | tmp=!line 2 of $tmp |
||
30 | ltprompt_$k=$name_empty,$tmp |
||
31 | ltval_$k=_EMPTY_,$tmp |
||
32 | old_$k=$(user_techvar_$(id_$k)) |
||
33 | !bound old_$k within $(ltval_$k) default _EMPTY_ |
||
9960 | guerimand | 34 | !next k |
35 | |||
36 | !if $tc_abandon!=$empty |
||
12488 | bpr | 37 | !reset tc_abandon,tc_set,user |
38 | job=userlist |
||
39 | !changeto $job.proc |
||
40 | !exit |
||
9960 | guerimand | 41 | !endif |
42 | |||
43 | !if $tc_set!=$empty |
||
12488 | bpr | 44 | # check validity of new value for techvar |
14335 | bpr | 45 | wdon=$empty |
46 | !for k in $tv_listlocal |
||
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 |
||
49 | old_$k=$(techval$(num_$k)) |
||
50 | !next k |
||
51 | wdon=!replace internal _EMPTY_ by $empty in $wdon |
||
52 | !setdef $wdon in $userdef |
||
12488 | bpr | 53 | !reset tc_set |
9960 | guerimand | 54 | !endif |