Subversion Repositories wimsdev

Rev

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

Rev 18144 Rev 18145
Line 78... Line 78...
78 
  !set seq_cnt=!line 1 of $seq_
 78 
  !set seq_cnt=!line 1 of $seq_
79 
  !if $seq_open!=yes or $seq_cnt= or $seq_cnt=0
 79 
  !if $seq_open!=yes or $seq_cnt= or $seq_cnt=0
80 
    !for i=1 to $n
 80 
    !for i=1 to $n
81 
      s=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
 81 
      s=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
82 
      !distribute lines $s into a,e,t,d,bl,bl,bl,bl,hi,indiv
 82 
      !distribute lines $s into a,e,t,d,bl,bl,bl,bl,hi,indiv
83 
      !if $wims_user!=supervisor and $hi!=$empty and $job=getuser
 83 
      !if $wims_user=supervisor and $job=getuser
84 
        !! ------test if sheet is hidden for this user
 84 
	      !set tmp_sheetstatus=!getsheetstatus sheet=$i user=$getuser
85 
          proc_wims_user=$getuser
 - 
 
86 
          !readproc adm/vfilter/ishiddensheet.proc $hi
 - 
 
87 
      !else
 85 
      !else
88 
        hidden_sheet=0
 86 
	      !set tmp_sheetstatus=!getsheetstatus sheet=$i
89 
      !endif
 87 
      !endif
90 
      !! -----end test
 - 
 
91 
      !if $hidden_sheet!=1
 88 
      !if $tmp_sheetstatus<3
92 
        shw=!line $i+1 of $shweights
 89 
        shw=!line $i+1 of $shweights
93 
        shw=!word 1 of $shw
 90 
        shw=!word 1 of $shw
94 
        !bound shw between 0 and 100000 default $tmp
 91 
        !bound shw between 0 and 100000 default $tmp
95 
        !if $a>0 and ($a<2 or $wims_user=supervisor or $shw>0)
 92 
        !if $tmp_sheetstatus>0 and ($tmp_sheetstatus=1 or $wims_user=supervisor or $shw>0)
96 
          ec=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
 93 
           ec=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
97 
          activesheets=!append line $i,$ec,$indiv,$t to $activesheets
 94 
          activesheets=!append line $i,$ec,$indiv,$t to $activesheets
98 
          activesh=!append item $i to $activesh
 95 
          activesh=!append item $i to $activesh
99 
        !endif
 96 
        !endif
100 
      !endif
 97 
      !endif
101 
    !next i
 98 
    !next i
Line 136... Line 133...
136 
      !for j=2 to $n
 133 
      !for j=2 to $n
137 
        !if sheet isin $(seq_[$iii;$j])
 134 
        !if sheet isin $(seq_[$iii;$j])
138 
          i=!word 2 of $(seq_[$iii;$j])
 135 
          i=!word 2 of $(seq_[$iii;$j])
139 
          s=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
 136 
          s=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
140 
          !distribute lines $s into a,e,t,d,bl,bl,bl,bl,hi,indiv
 137 
          !distribute lines $s into a,e,t,d,bl,bl,bl,bl,hi,indiv
141 
          !if $wims_user!=supervisor and $hi!=$empty and $job=getuser
 - 
 
142 
            !! ------test if sheet is hidden for this user
 138 
          !! ------test status of sheet for this user
143 
            proc_wims_user=$getuser
 139 
          !if $wims_user=supervisor and $job=getuser
144 
            !readproc adm/vfilter/ishiddensheet.proc $hi
 140 
            !set tmp_sheetstatus=!getsheetstatus sheet=$i user=$getuser
145 
          !else
 141 
          !else
146 
            hidden_sheet=0
 142 
            !set tmp_sheetstatus=!getsheetstatus sheet=$i
147 
          !endif
 143 
          !endif
148 
          !! -----end test
 - 
 
149 
          !if $hidden_sheet!=1
 144 
          !if $tmp_sheetstatus<3
150 
            shw=!line $i+1 of $shweights
 145 
            shw=!line $i+1 of $shweights
151 
            shw=!word 1 of $shw
 146 
            shw=!word 1 of $shw
152 
            !bound shw between 0 and 100000 default $tmp
 147 
            !bound shw between 0 and 100000 default $tmp
153 
            !if $a>0 and ($a<2 or $wims_user=supervisor or $shw>0)
 148 
            !if $tmp_sheetstatus>0 and ($tmp_sheetstatus=1 or $wims_user=supervisor or $shw>0)
154 
              ec=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
 149 
              ec=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
155 
              activesheets=!append line $i,$ec,$indiv,$riii,$t to $activesheets
 150 
              activesheets=!append line $i,$ec,$indiv,$riii,$t to $activesheets
156 
              activesh=!append item $i to $activesh
 151 
              activesh=!append item $i to $activesh
157 
            !endif
 152 
            !endif
158 
          !endif
 153 
          !endif