Subversion Repositories wimsdev

Rev

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

Rev 18146 Rev 18168
Line 79... Line 79...
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=$getuser
 83 
	    !set tmp_sheetstatus=!getsheetstatus sheet=$i user=$getuser
84 
      !set tmp_sheetstatusgen=!getsheetstatus sheet=$i user=
 84 
      !set tmp_sheetstatusgen=!getsheetstatus sheet=$i user=no
85 
      !if $tmp_sheetstatus<3 or $tmp_sheetstatusgen=3
 85 
      !if $tmp_sheetstatus<3 or $tmp_sheetstatusgen=3
86 
        shw=!line $i+1 of $shweights
 86 
        shw=!line $i+1 of $shweights
87 
        shw=!word 1 of $shw
 87 
        shw=!word 1 of $shw
88 
        !bound shw between 0 and 100000 default $tmp
 88 
        !bound shw between 0 and 100000 default $tmp
89 
        !if $tmp_sheetstatus>0 and ($tmp_sheetstatus=1 or $wims_user=supervisor or $shw>0)
 89 
        !if $tmp_sheetstatus>0 and ($tmp_sheetstatus=1 or $wims_user=supervisor or $shw>0)
90 
           ec=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
 90 
          ec=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
91 
          activesheets=!append line $i,$ec,$indiv,$t to $activesheets
 91 
          activesheets=!append line $i,$ec,$indiv,$t to $activesheets
92 
          activesh=!append item $i to $activesh
 92 
          activesh=!append item $i to $activesh
93 
        !endif
 93 
        !endif
94 
      !endif
 94 
      !endif
95 
    !next i
 95 
    !next i