Subversion Repositories wimsdev

Rev

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

Rev 17832 Rev 18127
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 
      !set tmp_sheetstatus=!getsheetstatus sheet=$i user=$proc_wims_user
83 
      !if $wims_user!=supervisor and $hi!=$empty and $job=getuser
 84 
      !!if $wims_user!=supervisor and $hi!=$empty and $job=getuser
84 
        !! ------test if sheet is hidden for this user
 85 
      !! ------test if sheet is hidden for this user
85 
          proc_wims_user=$getuser
 86 
      !!   proc_wims_user=$getuser
86 
          !readproc adm/vfilter/ishiddensheet.proc $hi
 87 
      !!   !readproc adm/vfilter/ishiddensheet.proc $hi
87 
      !else
 88 
      !!!else
88 
        hidden_sheet=0
 89 
      !!  hidden_sheet=0
89 
      !endif
 90 
      !!!endif
90 
      !! -----end test
 91 
      !! -----end test
- 
 
 92 
      !if $tmp_sheetstatus!=3
91 
      !if $hidden_sheet!=1
 93 
      !!if $hidden_sheet<1
92 
        shw=!line $i+1 of $shweights
 94 
        shw=!line $i+1 of $shweights
93 
        shw=!word 1 of $shw
 95 
        shw=!word 1 of $shw
94 
        !bound shw between 0 and 100000 default $tmp
 96 
        !bound shw between 0 and 100000 default $tmp
- 
 
 97 
        !if $tmp_sheetstatus>0 and ($tmp_sheetstatus<2 or $wims_user=supervisor or $shw>0)
95 
        !if $a>0 and ($a<2 or $wims_user=supervisor or $shw>0)
 98 
        !!if $a>0 and ($a<2 or $wims_user=supervisor or $shw>0)
96 
          ec=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
 99 
          ec=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
97 
          activesheets=!append line $i,$ec,$indiv,$t to $activesheets
 100 
          activesheets=!append line $i,$ec,$indiv,$t to $activesheets
98 
          activesh=!append item $i to $activesh
 101 
          activesh=!append item $i to $activesh
99 
        !endif
 102 
        !endif
100 
      !endif
 103 
      !endif
Line 139... Line 142...
139 
          s=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
 142 
          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
 143 
          !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
 144 
          !if $wims_user!=supervisor and $hi!=$empty and $job=getuser
142 
            !! ------test if sheet is hidden for this user
 145 
            !! ------test if sheet is hidden for this user
143 
            proc_wims_user=$getuser
 146 
            proc_wims_user=$getuser
144 
            !readproc adm/vfilter/ishiddensheet.proc $hi
 147 
            !!readproc adm/vfilter/ishiddensheet.proc $hi
- 
 
 148 
            !set tmp_sheetstatus=!getsheetstatus sheet=$i user=$proc_wims_user
145 
          !else
 149 
          !else
146 
            hidden_sheet=0
 150 
            hidden_sheet=0
- 
 
 151 
            !!???
147 
          !endif
 152 
          !endif
148 
          !! -----end test
 153 
          !! -----end test
- 
 
 154 
          !if $tmp_sheetstatus<3
149 
          !if $hidden_sheet!=1
 155 
          !!if $hidden_sheet!=1
150 
            shw=!line $i+1 of $shweights
 156 
            shw=!line $i+1 of $shweights
151 
            shw=!word 1 of $shw
 157 
            shw=!word 1 of $shw
152 
            !bound shw between 0 and 100000 default $tmp
 158 
            !bound shw between 0 and 100000 default $tmp
- 
 
 159 
            !if $tmp_sheetstatus>0 and ($tmp_sheetstatus<2 or $wims_user=supervisor or $shw>0)
153 
            !if $a>0 and ($a<2 or $wims_user=supervisor or $shw>0)
 160 
            !!if $a>0 and ($a<2 or $wims_user=supervisor or $shw>0)
154 
              ec=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
 161 
              ec=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
155 
              activesheets=!append line $i,$ec,$indiv,$riii,$t to $activesheets
 162 
              activesheets=!append line $i,$ec,$indiv,$riii,$t to $activesheets
156 
              activesh=!append item $i to $activesh
 163 
              activesh=!append item $i to $activesh
157 
            !endif
 164 
            !endif
158 
          !endif
 165 
          !endif