Subversion Repositories wimsdev

Rev

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

Rev 18127 Rev 18144
Line 15... Line 15...
15
  !bound ss between integer 0 and 2 default $tmp_ss
15
  !bound ss between integer 0 and 2 default $tmp_ss
16
  !set f_$i=!item $s+1 of $formula_list
16
  !set f_$i=!item $s+1 of $formula_list
17
  !set f_$i=!replace internal I by I$ss in $(f_$i)
17
  !set f_$i=!replace internal I by I$ss in $(f_$i)
18
  !set a_=!line 1 of $(s_$i)
18
  !set a_=!line 1 of $(s_$i)
19
  !! ------test if sheet is hidden for this user
19
  !! ------test if sheet is hidden for this user
20
 !!!set h_=!line 9 of $(s_$i)
20
  !set h_=!line 9 of $(s_$i)
21
 !!!if $h_!=$empty
21
  !if $h_!=$empty
22
 !!  !readproc adm/vfilter/ishiddensheet.proc $h_
22
    !readproc adm/vfilter/ishiddensheet.proc $h_
23
 !!!endif
23
  !endif
24
  !! -----end test
24
  !! -----end test
25
  !set tmp_sheet_status=!getsheetstatus sheet=$i
-
 
26
  !! ------ download techvarvalue for individual sheet
25
  !! ------ download techvarvalue for individual sheet
27
  !set h_=!line 10 of $(s_$i)
26
  !set h_=!line 10 of $(s_$i)
28
  !if $h_!=$empty
27
  !if $h_!=$empty
29
    !set indivtechval_$i=!defof user_techvar_$(h_) in $userdef
28
    !set indivtechval_$i=!defof user_techvar_$(h_) in $userdef
30
  !else
29
  !else
31
    !reset indivtechval_$i
30
    !reset indivtechval_$i
32
  !endif
31
  !endif
33
  !! ------ end individual sheet
32
  !! ------ end individual sheet
34
  !if $tmp_sheet_status iswordof 1 2
-
 
35
  !!if $a_>=1 and $a_<=2 and $hidden_sheet!=1
33
  !if $a_>=1 and $a_<=2 and $hidden_sheet!=1
36
    !set aclist=!append item $i to $aclist
34
    !set aclist=!append item $i to $aclist
37
  !endif
35
  !endif
38
  !!reset hidden_sheet
36
  !reset hidden_sheet
39
!next i
37
!next i
40
!reset tmp tmp_s tmp_ss tmp_sheet_status
38
!reset tmp tmp_s tmp_ss
41
!set n=!itemcnt $aclist
39
!set n=!itemcnt $aclist