Subversion Repositories wimsdev

Rev

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