Subversion Repositories wimsdev

!distribute items $wims_read_parm into tmp_work,tmp_severity

!set tmp_work=!replace internal / by , in $tmp_work
!distribute items $tmp_work into tmp_sheet,tmp_work
!if $tmp_work!=$empty and $tmp_sheet!=$empty
  !set require=!getscorerequire sheet=$tmp_sheet work=$tmp_work
  !distribute words $tmp_severity into severity_w,severity_s,severity_ss
  !if $require>0
    <div class="wims_tooltip wims_sheet_item">*
    <div class="wims_tooltiptext" style="width:15em">
    $wims_name_Sheet $tmp_sheet, $wims_name_Exercise $tmp_work
    <ul class="wims_nopuce">
    <li>$(wims_name_thsheet[3]): $require</li>
    !set mean=!getscoremean sheet=$tmp_sheet work=$tmp_work
     <li>$(wims_name_thsheet[7]): $[$mean]/10</li>
    !if $severity_ss=0
      !set got=!getscore sheet=$tmp_sheet work=$tmp_work
      <li>$(wims_name_thsheet[5]): $[round(100*$got/$require)]%</li>
    !endif
    !if $severity_ss=1
      !set best=!getscorebest sheet=$tmp_sheet work=$tmp_work
      <li>$(wims_name_thsheet[10]): $[round(100*$best/$require)]%</li>
    !endif
    !if $severity_ss=2
      !set level=!getscorelevel sheet=$tmp_sheet work=$tmp_work
      <li>$(wims_name_thsheet[13]): $[$level]/10</li>
    !endif
    </ul>
    </div></div>
  !endif
!else
  require=$require, $tmp_work=$empty or $tmp_sheet=$empty
!endif