Subversion Repositories wimsdev

Rev

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

  1. !if $special_parm iswordof authentification filter
  2.   !changeto help/$moduclass_lang/$special_parm.phtml
  3.   !exit
  4. !endif
  5. !set special_parm_=!text remove 0123456789 in $special_parm
  6.  
  7. !if $special_parm_!=$empty
  8.  !changeto lang/help.$moduclass_lang/$special_parm.phtml
  9. !endif
  10.  
  11. !set list=!record 0 of adm/class/sheetformula
  12. !set list=!items2lines $list
  13. !set wims_backslash_insmath=yes
  14. !set help_sw=!line $[$special_parm+1] of $shweights
  15. !set help_score_max=!line 1 of $shweights
  16. !set help_level=!word 2 of $help_sw
  17. !set help_sw=!word 3 of $help_sw
  18. !if $help_sw=$empty
  19.   !set help_sw_tmp=!defof DF_SEVERITY in wimshome/public_html/bases/sys/define.conf
  20.   !set help_sw=!word 3 of $help_sw_tmp
  21.   !default help_level=!word 2 of $help_sw_tmp
  22. !endif
  23. !default help_score_max=10
  24.  
  25. !read lang/help.phtml.$moduclass_lang
  26. !if $wims_user!=supervisor
  27.   !goto end
  28. !endif
  29. !for rule=1 to 6
  30.  !set r=$(list[$rule;])
  31. <table class="wimsborder">
  32. <caption> $rule : \($(list[$rule;])\)</caption>
  33. <tr>
  34.   <th>Q \ I</th>
  35.    !for ih = 0 to 10
  36.    <th>$ih</th>
  37.    !next
  38. </tr>
  39.    !for qh=0 to 10
  40. <tr><th>$qh</th>
  41.   !for ih = 0 to 10
  42.    <td>
  43.    !set r1=!mathsubst I=$[$ih/10] in $r
  44.    !set r1=!mathsubst Q=$[$qh/10] in $r1
  45.     $[ceil(100*$r1)/10]
  46.    </td>
  47.    !next
  48. </tr>
  49. !next
  50. </table>
  51. !next
  52. :end
  53.