Subversion Repositories wimsdev

Rev

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

  1. <hr/>
  2. !read Exindex
  3. !set exocnt=!itemcnt $exolist
  4. !set qcnt=8
  5. !if $qcnt>$exocnt
  6.  !set qcnt=$exocnt
  7. !endif
  8. !if $exocnt<1
  9.  Sorry, this module has no available exercise for the time being. Come back
  10.  later!
  11.  !exit
  12. !endif
  13. !if $exocnt=1
  14.  This module contains actually only one exercise, <b>
  15.  !item 1 of $titlelist
  16.  </b>.
  17.  !set exoo=!item 1 of $exolist
  18.  !href cmd=new&module=$module&exo=$exoo Try it.
  19.  !exit
  20. !endif
  21.  
  22. !form new
  23. <input type="hidden" name="module" value="$module"/>
  24. <table class="wimscenter wimsnoborder"><tr>
  25. <td>Choose the scenarios:</td><td>
  26. !if $exocnt>6
  27.  !set selsize=6
  28. !else
  29.  !set selsize=$exocnt
  30. !endif
  31. !set wims_formselect_switch=multiple size=$selsize
  32. !set exo=$special_parm
  33. !if $exo!=$empty
  34.  !set exolist=!listuniq $exo,$exolist
  35.  !set exolist=!replace , by , $ in $exolist
  36.  !set dictionary=$module_dir/Extitles
  37.  !set translator_unknown=leave
  38.  !set titlelist=!exec translator $exolist
  39. !endif
  40. !formselect exo list $exolist prompt $titlelist
  41. !set wims_formselect_switch=
  42.  </td></tr><tr><td>Style of the exercise:</td><td>
  43.  !formselect style list 1,2,3,4 prompt \
  44.         find the first bad step,\
  45.         find all the bad steps,\
  46.         step by step w/o giving reason,\
  47.         step by step with reason
  48. </td></tr>
  49.  <tr><td>Level of severity:</td><td>
  50.  !default level=2
  51.  !formselect level from 1 to 5
  52.  </td></tr></table>
  53.  <div class="wimscenter">
  54.  <input type="submit" value="Go to work" />
  55.  </div>
  56.  !formend
  57.