Subversion Repositories wimsdev

Rev

Rev 2178 | Rev 3910 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !distribute items exams/.exam, sheets/.sheet, 4, 3, 3, 5\
  2.         into file_E, file_S, line_E, line_S, linei_E, linei_S
  3.  
  4. !for ss in $listsh
  5.  !distribute items 0,0,0,0,0,0,0,0,0,0 into\
  6.         sreq, sweight, scid, snewcnt, ssccnt, sscsum, sdursum, sdur
  7.  !set sn=!char 2 to -1 of $ss
  8.  !set st=!char 1 of $ss
  9.  !set l_=!record $sn of wimshome/log/classes/$wims_class/$(file_$st)s
  10.  !set shtit=!line $(line_$st) of $l_
  11.  <p>$table_header
  12.  $table_hdtr<th rowspan=$hdrow>$wims_name_Exercise</th>
  13.  !if req isitemof $show and $st=S
  14.   <th rowspan=$hdrow><small>$name_required_points</small></th>
  15.  !endif
  16.  !if weight isitemof $show
  17.   <th rowspan=$hdrow><small>$name_coeff</small></th>
  18.  !endif
  19.  !if cid isitemof $show
  20.   <th rowspan=$hdrow><small>$name_index</small></th>
  21.  !endif
  22.  !if tot isitemof $show
  23.   <th colspan=4>$name_totals</th>
  24.  !endif
  25.  !if scoremean isitemof $show
  26.   <th colspan=2><small>$name_avg_score</small></th>
  27.  !endif
  28.  !if partmean isitemof $show
  29.   <th colspan=4><small>$name_avg_participant</small></th>
  30.  !endif
  31.  !if minmax isitemof $show
  32.   <th colspan=2>$name_min</th>
  33.   <th colspan=2>$name_max</th>
  34.  !endif
  35.  !if deviat isitemof $show
  36.   <th colspan=2>$name_deviation</th>
  37.  !endif
  38.  !if $hdrow>1
  39.   $table_hdtr
  40.   !if tot isitemof $show
  41.    <th><small>$name_new</small></th><th><small>$name_score</small></th>
  42.    <th><small>$name_points</small></th><th><small>$name_duration</small></th>
  43.   !endif
  44.   !if scoremean isitemof $show
  45.    <th><small>$name_points</small></th><th><small>$name_duration</small></th>
  46.   !endif
  47.   !if partmean isitemof $show
  48.    <th><small>$name_new</small></th><th><small>$name_score</small></th>
  49.    <th><small>$name_points</small></th><th><small>$name_duration</small></th>
  50.   !endif
  51.   !if minmax isitemof $show
  52.    <th><small>$name_points</small></th><th><small>$name_duration</small></th>
  53.    <th><small>$name_points</small></th><th><small>$name_duration</small></th>
  54.   !endif
  55.   !if deviat isitemof $show
  56.    <th><small>$name_points</small></th><th><small>$name_duration</small></th>
  57.   !endif
  58.  !endif
  59.  !for i=$(start$st$sn) to $(end$st$sn)
  60.   !set l_=!record $i of wimshome/log/classes/$wims_class/exostat
  61.   !distribute words $l_ into $fields
  62.   !set l_=!record $exo of wimshome/log/classes/$wims_class/$(file_$st)$sn
  63.   !if $l_=$empty
  64.    !goto next
  65.   !endif
  66.   !distribute lines $l_ into 1_,2_,3_,4_,5_,6_
  67.   !set t_=$($(linei_$st)_)
  68.   !if $scavg>0 and $st=S
  69.    !set sdur=$[$sdur+$duravg*$3_/$scavg]
  70.   !endif
  71.   $table_tr<td><small>$exo.
  72.   !if $st=S
  73.    !href target=wims_exo module=$1_&cmd=new&worksheet=$sn&$2_ $t_
  74.   !else
  75.    $t_
  76.   !endif
  77.   </small>
  78.   !if req isitemof $show and $st=S
  79.    <td align="center">$3_</td>
  80.    !set sreq=$[$sreq+$3_]
  81.   !endif
  82.   !if weight isitemof $show
  83.    !if $st=S
  84.     <td align="center">$4_</td>
  85.     !set sweight=$[$sweight+$4_]
  86.    !else
  87.     <td align="center">$1_</td>
  88.    !endif
  89.   !endif
  90.   !if cid isitemof $show
  91.    <td align="center">$cid</td>
  92.    !set scid=$[$scid+$cid*($3_/10)]
  93.   !endif
  94.   !distribute item $[$snewcnt+$newcnt],$[$ssccnt+$sccnt],\
  95.      $[$sscsum+$scsum],$[$sdursum+$dursum] into\
  96.      snewcnt,ssccnt,sscsum,sdursum
  97.   !if tot isitemof $show
  98.    <td align="right">$newcnt</td>
  99.    <td align="right">$sccnt</td>
  100.    <td align="right">$scsum</td>
  101.    <td align="right">$dursum</td>
  102.   !endif
  103.   !if scoremean isitemof $show
  104.    <td align="center">$[rint(10*$scavg)/10]</td>
  105.    <td align="center">$[rint(10*$duravg)/10]</td>
  106.   !endif
  107.   !if partmean isitemof $show
  108.    <td align="center">$[rint(10*$newcnt/$usercnt)/10]</td>
  109.    <td align="center">$[rint(10*$sccnt/$usercnt)/10]</td>
  110.    <td align="center">$[rint(10*$scsum/$usercnt)/10]</td>
  111.    <td align="center">$[rint(10*$dursum/$usercnt)/10]</td>
  112.   !endif
  113.   !if minmax isitemof $show
  114.    <td align="right">$scmin</td>
  115.    <td align="right">$durmin</td>
  116.    <td align="right">$scmax</td>
  117.    <td align="right">$durmax</td>
  118.   !endif
  119.   !if deviat isitemof $show
  120.    <td align="right">$scdev</td>
  121.    <td align="right">$durdev</td>
  122.   !endif
  123.   :next
  124.  !next i
  125.  !set test=!listintersect $show and req,weight,cid,tot,scoremean,partmean
  126.  !if $st=S and $(start$st$sn)<$(end$st$sn) and $test!=$empty
  127.   $table_hdtr<th>$name_sum</th>
  128.   !if req isitemof $show
  129.    <td align="center">$sreq</td>
  130.   !endif
  131.   !if weight isitemof $show
  132.    <td align="center">$sweight</td>
  133.   !endif
  134.   !if cid isitemof $show
  135.    <td align="center">$scid</td>
  136.   !endif
  137.   !if tot isitemof $show
  138.    <td align="right">$snewcnt</td>
  139.    <td align="right">$ssccnt</td>
  140.    <td align="right">$sscsum</td>
  141.    <td align="right">$sdursum</td>
  142.   !endif
  143.   !if scoremean isitemof $show
  144.    <td align="center">-</td>
  145.    <td align="center">-</td>
  146.   !endif
  147.   !if partmean isitemof $show
  148.    <td align="center">$[rint(10*$snewcnt/$usercnt)/10]</td>
  149.    <td align="center">$[rint(10*$ssccnt/$usercnt)/10]</td>
  150.    <td align="center">$[rint(10*$sscsum/$usercnt)/10]</td>
  151.    <td align="center">$[rint(10*$sdursum/$usercnt)/10]</td>
  152.   !endif
  153.   !if minmax isitemof $show
  154.    <td align="center">-</td>
  155.    <td align="center">-</td>
  156.    <td align="center">-</td>
  157.    <td align="center">-</td>
  158.   !endif
  159.   !if deviat isitemof $show
  160.    <td align="center">-</td>
  161.    <td align="center">-</td>
  162.   !endif
  163.  !endif
  164.  <caption>
  165.  <b>$(name_$st) $sn.</b> $shtit
  166.  <small>($name_theoric $[rint($sdur)] $name_minute)</small>
  167.  </caption>
  168.  $table_end <p>
  169. !next ss
  170.  
  171.