Subversion Repositories wimsdev

Rev

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

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