Subversion Repositories wimsdev

Rev

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

  1. !!$wims_html_header
  2. !!<body $wims_htmlbody>
  3. !header1
  4. <p><center><h3>
  5. !href module=$module&cmd=intro WIMS
  6.  $module_title<br>
  7. <font size=-1>--- Printable version ---</font></h3></center> <p>
  8. !!<div class=wimsbody>
  9.  
  10. !if $error!=$empty
  11.  !changeto oef/msg.phtml
  12. !endif
  13.  
  14. !for i=1 to $n
  15.  <p>
  16.  <b>Exercise</b> $i. (<u><em>$(title_$i)</em></u>)
  17.  !if $(question_$i)=$empty
  18.   (Non-printable)
  19.  !else
  20.   !if __EXECUTED_ isin $(question_$i) and _EXERCISE__ isin $(question_$i)
  21.    !set thisexo=$(name_$i)
  22.    !readproc oef/imagedir.proc
  23.    !for k=1 to $(varcnt_$i)+5
  24.     !set val$k=!line $k of $(var_$i)
  25.    !next k
  26.    !read $(class_header)def/$(name_$i).def question
  27.   !else
  28.    $(question_$i)
  29.   !endif
  30.   !!</a></tt></font></center>
  31.  !! </h1></h2></h3></h4></b></i></em>
  32.   $(chce_$i)
  33.  !endif
  34. !next i
  35.  
  36. !if $wims_user!=$empty and $wims_user!=supervisor
  37.  !goto noans
  38. !endif
  39.  
  40. <p><hr>
  41. <div class="wims_solution">
  42. <center><h3>Answers</h3></center> <p>
  43. !for i=1 to $n
  44.  !set t=!linecnt $(ans_$i)
  45.  !if $t>0
  46.   <p><b>Answer to exercise $i.</b><ul>
  47.   !for k=1 to $t
  48.    <li>
  49.    !line $k of $(ans_$i)
  50.   !next k
  51.   </ul>
  52.  !endif
  53. !next i
  54. </div>
  55.  
  56. :noans
  57. </div>
  58. !!<div class="wims_noprint"><hr>
  59. !!!href cmd=reply&print=yes Again
  60. !!&nbsp;&nbsp;
  61. !!!href module=$module&cmd=intro Back
  62. !!</div>
  63. !!</body></html>
  64. !set wims_menu_items=!append line renew,1,cmd=reply&print=yes  to $wims_menu_items
  65. !tail
  66.