Subversion Repositories wimsdev

Rev

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

Rev 18141 Rev 18144
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
 - 
 
84 
      !!if $wims_user!=supervisor and $hi!=$empty and $job=getuser
 83 
      !if $wims_user!=supervisor and $hi!=$empty and $job=getuser
85 
      !! ------test if sheet is hidden for this user
 84 
        !! ------test if sheet is hidden for this user
86 
      !!   proc_wims_user=$getuser
 85 
          proc_wims_user=$getuser
87 
      !!   !readproc adm/vfilter/ishiddensheet.proc $hi
 86 
          !readproc adm/vfilter/ishiddensheet.proc $hi
88 
      !!!else
 87 
      !else
89 
      !!  hidden_sheet=0
 88 
        hidden_sheet=0
90 
      !!!endif
 89 
      !endif
91 
      !! -----end test
 90 
      !! -----end test
92 
      !if $tmp_sheetstatus!=3
 - 
 
93 
      !!if $hidden_sheet<1
 91 
      !if $hidden_sheet!=1
94 
        shw=!line $i+1 of $shweights
 92 
        shw=!line $i+1 of $shweights
95 
        shw=!word 1 of $shw
 93 
        shw=!word 1 of $shw
96 
        !bound shw between 0 and 100000 default $tmp
 94 
        !bound shw between 0 and 100000 default $tmp
97 
        !if $tmp_sheetstatus>0 and ($tmp_sheetstatus<2 or $wims_user=supervisor or $shw>0)
 - 
 
98 
        !!if $a>0 and ($a<2 or $wims_user=supervisor or $shw>0)
 95 
        !if $a>0 and ($a<2 or $wims_user=supervisor or $shw>0)
99 
          ec=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
 96 
          ec=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
100 
          activesheets=!append line $i,$ec,$indiv,$t to $activesheets
 97 
          activesheets=!append line $i,$ec,$indiv,$t to $activesheets
101 
          activesh=!append item $i to $activesh
 98 
          activesh=!append item $i to $activesh
102 
        !endif
 99 
        !endif
103 
      !endif
 100 
      !endif
Line 123... Line 120...
123 
      !!  ----- test if sequence is active and not hidden for user
 120 
      !!  ----- test if sequence is active and not hidden for user
124 
      !if $wims_user!=supervisor and $job=getuser
 121 
      !if $wims_user!=supervisor and $job=getuser
125 
        tmp=!record 1 of wimshome/log/classes/$wims_class/seq/.sequence$riii
 122 
        tmp=!record 1 of wimshome/log/classes/$wims_class/seq/.sequence$riii
126 
        tmp=!line 4 of $tmp
 123 
        tmp=!line 4 of $tmp
127 
        !if $tmp=1
 124 
        !if $tmp=1
128 
          !! check technical variable access to sequence
 - 
 
129 
          !! (if sequence accessible the script set output=yes)
 - 
 
130 
          !readproc adm/class/checkuserscorecondition S$riii
 125 
          !readproc adm/class/checkuserscorecondition S$riii
131 
        !else
 126 
        !else
132 
          output=no
 127 
          output=no
133 
        !endif
 128 
        !endif
134 
      !else
 129 
      !else
Line 141... Line 136...
141 
      !for j=2 to $n
 136 
      !for j=2 to $n
142 
        !if sheet isin $(seq_[$iii;$j])
 137 
        !if sheet isin $(seq_[$iii;$j])
143 
          i=!word 2 of $(seq_[$iii;$j])
 138 
          i=!word 2 of $(seq_[$iii;$j])
144 
          s=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
 139 
          s=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
145 
          !distribute lines $s into a,e,t,d,bl,bl,bl,bl,hi,indiv
 140 
          !distribute lines $s into a,e,t,d,bl,bl,bl,bl,hi,indiv
146 
!!          !if $wims_user!=supervisor and $hi!=$empty and $job=getuser
 141 
          !if $wims_user!=supervisor and $hi!=$empty and $job=getuser
147 
            !! ------test if sheet is hidden for this user
 142 
            !! ------test if sheet is hidden for this user
148 
            proc_wims_user=$getuser
 143 
            proc_wims_user=$getuser
149 
!!            !!readproc adm/vfilter/ishiddensheet.proc $hi
 144 
            !readproc adm/vfilter/ishiddensheet.proc $hi
150 
            !set tmp_sheetstatus=!getsheetstatus sheet=$i user=$proc_wims_user
 - 
 
151 
          !if $tmp_sheetstatus<3
 - 
 
152 
            hidden_sheet=1
 - 
 
153 
            !!???
 - 
 
154 
          !else
 145 
          !else
155 
            hidden_sheet=0
 146 
            hidden_sheet=0
156 
            !!???
 - 
 
157 
          !endif
 147 
          !endif
158 
          !! -----end test
 148 
          !! -----end test
159 
          !if $tmp_sheetstatus<3
 - 
 
160 
          !!if $hidden_sheet!=1
 149 
          !if $hidden_sheet!=1
161 
            shw=!line $i+1 of $shweights
 150 
            shw=!line $i+1 of $shweights
162 
            shw=!word 1 of $shw
 151 
            shw=!word 1 of $shw
163 
            !bound shw between 0 and 100000 default $tmp
 152 
            !bound shw between 0 and 100000 default $tmp
164 
            !if $tmp_sheetstatus>0 and ($tmp_sheetstatus<2 or $wims_user=supervisor or $shw>0) and $(listshowseq[$ii])=1
 - 
 
165 
            !!if $a>0 and ($a<2 or $wims_user=supervisor or $shw>0)
 153 
            !if $a>0 and ($a<2 or $wims_user=supervisor or $shw>0)
166 
              ec=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
 154 
              ec=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
167 
              activesheets=!append line $i,$ec,$indiv,$riii,$t to $activesheets
 155 
              activesheets=!append line $i,$ec,$indiv,$riii,$t to $activesheets
168 
              activesh=!append item $i to $activesh
 156 
              activesh=!append item $i to $activesh
169 
            !endif
 157 
            !endif
170 
          !endif
 158 
          !endif