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