Subversion Repositories wimsdev

Rev

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

  1.  
  2. $wims_html_header
  3. <body $wims_htmlbody>
  4.  
  5. <p><center><h3>
  6. !href module=$module&cmd=intro WIMS
  7.  $module_title<br>
  8. <font size=-1>--- Version imprimable ---</font></h3></center> <p>
  9. <div class=wimsbody>
  10.  
  11. !if $error!=$empty
  12.  !changeto oef/msg.phtml
  13. !endif
  14.  
  15. !for i=1 to $n
  16.  <p>
  17.  <b>Exercice</b> $i. (<u><em>$(title_$i)</em></u>)
  18.  !if $(question_$i)=$empty
  19.   (Non-imprimable)
  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. <p><hr> <p>
  43. <center><h3>Réponses</h3></center> <p>
  44. !for i=1 to $n
  45.  !set t=!linecnt $(ans_$i)
  46.  !if $t>0
  47.   <p><b>Réponse à l'exercice $i.</b><ul>
  48.  !for k=1 to $t
  49.  !set l__=!line $k of $(ans_$i)
  50.  !if $l__ !=
  51.   <li value=$k>
  52.   !line $k of $(ans_$i)
  53.   </li>
  54.  !reset l__
  55.  !endif
  56.  !next k
  57.  </ul>
  58. !endif
  59. !next i
  60. !endif
  61.  
  62. :noans
  63. </div> <hr> <p>
  64. <center>
  65. !href cmd=reply&print=yes Renouveler
  66. &nbsp;&nbsp;
  67. !href module=$module&cmd=intro Retour
  68. </center>
  69.  
  70.