Subversion Repositories wimsdev

Rev

Rev 14010 | Rev 14018 | 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 iii=1 to $n
  21.   <h4>
  22.   !href target=wims_light module=$module&exo=$(name_$iii)&cmd=new <span class="bold">$name_exo</span> $iii.
  23.   <span id="title_$iii">$(title_$iii)</span>
  24.   </h4>
  25.   !if $(question_$iii)=$empty
  26.     ($name_noprint)
  27.   !else
  28.     !if __EXECUTED_ isin $(question_$iii) and _EXERCISE__ isin $(question_$iii)
  29.       !set thisexo=$(name_$iii)
  30.       !!!!FIXME 5
  31.       !readproc oef/imagedir.proc
  32.       !for k=1 to $(varcnt_$iii)+5
  33.         !set val$k=!line $k of $(var_$iii)
  34.       !next k
  35.       <div id="exo_$iii">
  36.       !read $(class_header)def/$(name_$iii).def question
  37.       </div>
  38.     !else
  39.       <div id="exo_$iii">
  40.       $(question_$iii)
  41.       </div>
  42.     !endif
  43.     !if $(chce_$iii)!=$empty
  44.       <div class="wims_answer">$(chce_$iii)</div>
  45.     !endif
  46.   !endif
  47.   <br class="clearall" />
  48.   !if $i__>=$(cnt_$iii) and $prompt___!=$empty
  49.     <div class="spacer">$prompt___</div>
  50.     !reset prompt___
  51.   !endif
  52.   !if $(embedcnt$iii)=0 or $(embedcnt$iii)=$empty
  53.     !set tmp_cnt=!itemcnt $(Replyname$iii)
  54.     <ul>
  55.     !for k=1 to $tmp_cnt-1
  56.       <li>
  57.       !set tmp=!item $k of $(Replyname$iii)
  58.       !if $tmp!=$empty
  59.         <em>$tmp</em>:
  60.       !endif
  61.       !set tmp=!line $k of $(Rg$iii)
  62.       !set tmp=!nonempty items $tmp
  63.       !if $((Replytype$iii)[$k]) iswordof dragfill clickfill reorder compose
  64.         !replace internal , by </div>$ $<div class="drag_label" style="display:inline-block;"> \
  65. in <div class="drag_label" style="display:inline-block;">$tmp</div>
  66.       !else
  67.         !if $((Replytype$iii)[$k]) iswordof radio menu checkbox
  68.           !replace internal , by </li><li> in <ul><li>$tmp</li></ul>
  69.         !else
  70.           $tmp
  71.         !endif
  72.       !endif
  73.       !reset tmp
  74.       </li>
  75.     !next
  76.     </ul>
  77.   !endif
  78. !next
  79.  
  80. !if $wims_user!=$empty and $wims_user!=supervisor
  81.   !goto noans
  82. !endif
  83.  
  84. !if $test_print=1
  85.   <div class="wims_solution">
  86.   <h3 class="wimscenter">$name_answers</h3>
  87.   !for iii=1 to $n
  88.     !set t=!linecnt $(ans_$iii)
  89.     !if $t>0
  90.       <div id="answer_$iii">
  91.       <h4>$name_answer_i $iii.</h4>
  92.       !if $t>1
  93.         <ol style="list-style-type:square;">
  94.       !endif
  95.       !for k=1 to $t
  96.         !if $(Replytype$iii[$k]) iswordof coord clock jsxgraphcurve
  97.           !break
  98.         !endif
  99.         !set l__=!line $k of $(ans_$iii)
  100.         !if $l__ !=
  101.           !if $t>1
  102.             <li style="counter-reset:$k">
  103.           !endif
  104.             $l__
  105.           !if $t>1
  106.             </li>
  107.           !endif
  108.           !reset l__
  109.         !endif
  110.       !next k
  111.       !if $t>1
  112.         </ol>
  113.       !endif
  114.       </div>
  115.     !endif
  116.   !next iii
  117.   </div><!--end of wims_solution-->
  118. !endif
  119.  
  120. :noans
  121.  
  122. !set wims_menu_items=!append line renew,1,cmd=reply&print=yes\
  123.   to $wims_menu_items
  124. !if $wims_user=$empty
  125.   !set wims_menu_items=!append line back2,1,module=$module&cmd=intro\
  126.     to $wims_menu_items
  127. !endif
  128. !tail
  129.