Subversion Repositories wimsdev

!default uu=$wims_read_parm

!!one line by sheet : points quality

percents=!getscorepercent user=$uu

percnt=!linecnt $percents

per=0

av=0

!! add new indicator, it should be better if it would created in the line

!!percents in the future

!! w_$i etc are defined in sheetweights

!!give an average for all sheets and for the user $uu - even not seen in sequences ??

!for i=1 to $percnt

 perc=!line $i of $percents

 !distribute words $perc into p1,p2,p3

 !if $p2!=$empty and $(w_$i)!=$empty

  !distribute item $[$p1/100],$[$p2/10],$[$p3/100] into x_,y_,z_

  per=$[$per+($(w_$i))*$(f_$i)]

 !endif

!next i

examout=!examscore user=$uu

!for i in $activexams

 es_$i=!word $i of $examout

 per=$[$per+$(ew_$i)*$(es_$i)/10]

!next i

!if $totweight>0

 per=$[rint($scoremax*100*$per/$totweight)/100]

!else

 per=0

!endif