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">*

    <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