Subversion Repositories wimsdev

Rev

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

Rev 18058 Rev 18127
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
25
  !! ------ download techvarvalue for individual sheet
26
  !! ------ download techvarvalue for individual sheet
26
  !set h_=!line 10 of $(s_$i)
27
  !set h_=!line 10 of $(s_$i)
27
  !if $h_!=$empty
28
  !if $h_!=$empty
28
    !set indivtechval_$i=!defof user_techvar_$(h_) in $userdef
29
    !set indivtechval_$i=!defof user_techvar_$(h_) in $userdef
29
  !else
30
  !else
30
    !reset indivtechval_$i
31
    !reset indivtechval_$i
31
  !endif
32
  !endif
32
  !! ------ end individual sheet
33
  !! ------ end individual sheet
-
 
34
  !if $tmp_sheet_status iswordof 1 2
33
  !if $a_>=1 and $a_<=2 and $hidden_sheet!=1
35
  !!if $a_>=1 and $a_<=2 and $hidden_sheet!=1
34
    !set aclist=!append item $i to $aclist
36
    !set aclist=!append item $i to $aclist
35
  !endif
37
  !endif
36
  !reset hidden_sheet
38
  !!reset hidden_sheet
37
!next i
39
!next i
38
!reset tmp tmp_s tmp_ss
40
!reset tmp tmp_s tmp_ss tmp_sheet_status
39
!set n=!itemcnt $aclist
41
!set n=!itemcnt $aclist