Subversion Repositories wimsdev

Rev

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