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>

    !if $wims_user!=$empty and $wims_user!=supervisor

      !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

    !endif

    </ul>

    </div></div>

  !endif

!endif