Subversion Repositories wimsdev

Rev

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

  1. !set wims_html_header=!append line $oefcss to $wims_html_header
  2. !header1
  3. !read adm/title.phtml 2\
  4. $sheet_title
  5.  
  6. <div class="wims_sheet_desc">$sheet_desc</div>
  7.  
  8. $sheet_remark
  9.  
  10. !if $error!=$empty
  11.  !changeto lang/msg.phtml.$modu_lang
  12. !endif
  13.  
  14. !if ($wims_developer!= or $wims_supervisor!= or $wims_user=supervisor) and $latex_exists=1
  15.   <div class="wimscenter">
  16.   !read oef/latex.proc print
  17.   </div>
  18. !endif
  19. !for i=1 to $N
  20.  <br class="spacer" />
  21.  <span class="bold">$name_exo</span> $i - <span class="oefnameexo">$(title_$i)</span><br />
  22.  !if $(question_$i)=$empty
  23.   ($name_noprint)
  24.  !else
  25.   !if __EXECUTED_ isin $(question_$i) and _EXERCISE__ isin $(question_$i)
  26.    !set e_=$(e_$i)
  27.    !set thisexo=$e_
  28.    !set m_=$(module_$i)
  29.    !readproc imagedir.proc
  30.    !for k=1 to $(varcnt_$i)+5
  31.     !set val$k=!line $k of $(var_$i)
  32.    !next k
  33.    !set wims_prefix=
  34.    !read $(class_header)def/$(e_$i).def question
  35.    !set wims_prefix=$wims_prefix2
  36.   !else
  37.    $(question_$i)
  38.   !endif
  39.   <a></a>
  40.   $(chce_$i)
  41.  !endif
  42. !next i
  43.  
  44. !if $public!=P and $wims_user!=supervisor
  45.  !goto noans
  46. !endif
  47.  
  48. <br class="spacer" /><hr/>
  49. <div class="wims_solution">
  50. <h3 class="wimscenter">$wims_name_answer</h3>
  51. !for i=1 to $N
  52.  !set t=!linecnt $(ans_$i)
  53.  !if $t>0
  54.   <br class="spacer" />
  55.   <span class="bold">$name_answer $i.</span>
  56.   <ul style="list-style-type:square;">
  57.   !for k=1 to $t
  58.    !set l__=!line $k of $(ans_$i)
  59.    !if $l__ !=
  60.     <li value="$k">
  61.     !line $k of $(ans_$i)
  62.     </li>
  63.    !reset l__
  64.    !endif
  65.   !next k
  66.   </ul>
  67.  !endif
  68. !next i
  69. </div><!--end of wims_solution-->
  70.  
  71. :noans
  72.  
  73. !set wims_menu_items=!append line renew,1,cmd=reply\
  74. back2,1,cmd=reply&job=read\
  75. to $wims_menu_items
  76. !tail
  77.