Subversion Repositories wimsdev

Rev

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

Rev 12488 Rev 14335
Line 5... Line 5...
5 
 
 5 
 
6 
!reset user_exists,$lttechvarid
 6 
!reset user_exists,$lttechvarid
7 
!readproc adm/class/userdef classes,$wims_class,$user
 7 
!readproc adm/class/userdef classes,$wims_class,$user
8 
!read $userdef
 8 
!read $userdef
9 
!if $user_exists!=yes
 9 
!if $user_exists!=yes
10 
	error=baduser
 10 
  error=baduser
11 
	job=userlist
 11 
  job=userlist
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
Line 20... Line 20...
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
26 
	!distribute item $don into name,cls,num_$k
 26 
  !distribute item $don into name,cls,num_$k
27 
	id_$k=!item $k of $tv_listcode
 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))
 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
Line 40... Line 40...
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