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