Subversion Repositories wimsdev

Rev

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

  1. !nocache
  2. !set wims_html_header=!append line $oefcss to $wims_html_header
  3. !header1
  4. !set module_title=!module title_$lang $module
  5. !default module_title=!module title $module
  6. <h3 class="wimscenter">
  7. !href module=$module&cmd=intro WIMS
  8.  $module_title<br />
  9. <span class="smaller">--- $name_print ---</span></h3>
  10.  
  11. !if $error!=$empty
  12.   !changeto oef/msg.phtml
  13. !endif
  14.  
  15. !if ($wims_developer!= or $wims_user=supervisor) and $latex_exists=1
  16.   <div class="wimscenter">
  17.   !read oef/latex.proc print
  18.   </div>
  19. !endif
  20. !for i=1 to $n
  21.   <br class="spacer" />
  22.   !href target=wims_light module=$module&exo=$(name_$i)&cmd=new <span class="bold">$name_exo</span> $i.
  23.   (<span style="text-decoration:underline;font-style:italic">$(title_$i)</span>)
  24.   !if $(question_$i)=$empty
  25.     ($name_noprint)
  26.   !else
  27.     !if __EXECUTED_ isin $(question_$i) and _EXERCISE__ isin $(question_$i)
  28.       !set thisexo=$(name_$i)
  29.       !readproc oef/imagedir.proc
  30.       !for k=1 to $(varcnt_$i)+5
  31.         !set val$k=!line $k of $(var_$i)
  32.       !next k
  33.       <div id="exo_$i">
  34.       !read $(class_header)def/$(name_$i).def question
  35.       </div>
  36.     !else
  37.       <div id="exo_$i">
  38.       $(question_$i)
  39.       </div>
  40.  
  41.     !endif
  42.     $(chce_$i)
  43.   !endif
  44.   <br class="clearall" />
  45.   !if $i__>=$(cnt_$i) and $prompt___!=$empty
  46.       <div class="spacer">$prompt___</div>
  47.   !endif
  48. !next i
  49.  
  50. !if $wims_user!=$empty and $wims_user!=supervisor
  51.   !goto noans
  52. !endif
  53.  
  54. !if $test_print=1
  55.   <br class="spacer" /><hr/>
  56.   <div class="wims_solution">
  57.   <h3 class="wimscenter">$name_answers</h3>
  58.   !for i=1 to $n
  59.     !set t=!linecnt $(ans_$i)
  60.     !if $t>0
  61.       <div id="answer_$i">
  62.       <br class="spacer" />
  63.       <span class="bold">$name_answer_i.</span>
  64.       <ol style="list-style-type:square;">
  65.       !for k=1 to $t
  66.         !set l__=!line $k of $(ans_$i)
  67.         !if $l__ !=
  68.           <li style="counter-reset:$k">
  69.           !line $k of $(ans_$i)
  70.           </li>
  71.           !reset l__
  72.         !endif
  73.       !next k
  74.       </ol>
  75.       </div>
  76.     !endif
  77.   !next i
  78.   </div><!--end of wims_solution-->
  79. !endif
  80.  
  81. :noans
  82.  
  83. !set wims_menu_items=!append line renew,1,cmd=reply&print=yes\
  84. back2,1,module=$module&cmd=intro\
  85. to $wims_menu_items
  86. !tail
  87.