Subversion Repositories wimsdev

Rev

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

  1.  
  2. !header1
  3. !read adm/title.phtml 2\
  4. $sheet_title
  5.  
  6. <div class="wims_sheet_desc">$sheet_desc</div><p>
  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.   <center>
  16.   !read oef/latex.proc print
  17.   </center>
  18. !endif
  19. !for i=1 to $N
  20.  <p>
  21.  <b>$name_exo</b> $i.
  22.  !if $(question_$i)=$empty
  23.   ($name_noprint: $(title_$i))
  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. <div class="wims_solution"><hr>
  49. <center><h3>$wims_name_answer</h3></center> <p>
  50. !for i=1 to $N
  51.  !set t=!linecnt $(ans_$i)
  52.  !if $t>0
  53.   <p><b>$name_answer $i.</b><ul>
  54.   !for k=1 to $t
  55.    !set l__=!line $k of $(ans_$i)
  56.    !if $l__ !=
  57.     <li value="$k">
  58.     !line $k of $(ans_$i)
  59.     </li>
  60.    !reset l__
  61.    !endif
  62.   !next k
  63.   </ul>
  64.  !endif
  65. !next i
  66. </div><!--end of wims_solution-->
  67.  
  68. :noans
  69. <p>
  70. !set wims_menu_items=!append line renew,1,cmd=reply\
  71. back2,1,cmd=reply&job=read\
  72. to $wims_menu_items
  73. !tail
  74.