Subversion Repositories wimsdev

Rev

Rev 11465 | Rev 13793 | 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.       !read $(class_header)def/$(name_$i).def question
  34.     !else
  35.       $(question_$i)
  36.     !endif
  37.     $(chce_$i)
  38.   !endif
  39.   <br class="clearall" />
  40. !next i
  41.  
  42. !if $wims_user!=$empty and $wims_user!=supervisor
  43.   !goto noans
  44. !endif
  45.  
  46. !if $test_print=1
  47.   <br class="spacer" /><hr/>
  48.   <div class="wims_solution">
  49.   <h3 class="wimscenter">$name_answers</h3>
  50.   !for i=1 to $n
  51.     !set t=!linecnt $(ans_$i)
  52.     !if $t>0
  53.       <br class="spacer" />
  54.       <span class="bold">$name_answer_i.</span>
  55.       <ol style="list-style-type:square;">
  56.       !for k=1 to $t
  57.         !set l__=!line $k of $(ans_$i)
  58.         !if $l__ !=
  59.           <li style="counter-reset:$k">
  60.           !line $k of $(ans_$i)
  61.           </li>
  62.           !reset l__
  63.         !endif
  64.       !next k
  65.       </ol>
  66.     !endif
  67.   !next i
  68.   </div><!--end of wims_solution-->
  69. !endif
  70.  
  71. :noans
  72.  
  73. !set wims_menu_items=!append line renew,1,cmd=reply&print=yes\
  74. back2,1,module=$module&cmd=intro\
  75. to $wims_menu_items
  76. !tail
  77.