Subversion Repositories wimsdev

Rev

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

Rev 18145 Rev 18146
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 $job=getuser
 - 
 
84 
	      !set tmp_sheetstatus=!getsheetstatus sheet=$i user=$getuser
 83 
	    !set tmp_sheetstatus=!getsheetstatus sheet=$i user=$getuser
85 
      !else
 - 
 
86 
	      !set tmp_sheetstatus=!getsheetstatus sheet=$i
 84 
      !set tmp_sheetstatusgen=!getsheetstatus sheet=$i user=
87 
      !endif
 - 
 
88 
      !if $tmp_sheetstatus<3
 85 
      !if $tmp_sheetstatus<3 or $tmp_sheetstatusgen=3
89 
        shw=!line $i+1 of $shweights
 86 
        shw=!line $i+1 of $shweights
90 
        shw=!word 1 of $shw
 87 
        shw=!word 1 of $shw
91 
        !bound shw between 0 and 100000 default $tmp
 88 
        !bound shw between 0 and 100000 default $tmp
92 
        !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)
93 
           ec=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
 90 
           ec=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i