Subversion Repositories wimsdev

Rev

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

  1.  
  2. !if $job=print
  3.  !changeto print.phtml
  4. !endif
  5.  
  6. !if $public!=P
  7.  !changeto class.phtml
  8. !endif
  9. !if $(module_title_$modu_lang)!=
  10.    !set module_title=$(module_title_$modu_lang)
  11. !endif
  12.  
  13. !header
  14.  
  15. !if $error!=$empty
  16.  !read lang/msg.phtml.$modu_lang
  17.  !tail
  18.  !exit
  19. !endif
  20.  
  21. !if $wims_user=supervisor and $job=raw
  22. <p id="textsource">$name_textsource</p>
  23. <hr/>
  24. <pre>
  25.  !sh awk 'BEGIN {a=0};\
  26.         /^:/ {a=1};\
  27.         a==1 {print}' bases/sheet/$sh.def
  28.  </pre>
  29.  <hr/>
  30.  
  31. !set wims_menu_items=!append line participantview,1,cmd=resume&job=read \
  32. to $wims_menu_items
  33.  
  34.  !tail
  35.  !exit
  36. !endif
  37.  
  38. !set intro=!record 0 of $data
  39. !set dur=!words2items $(intro[3;])
  40. !distribute items $dur into duration,year
  41. !read adm/title.phtml 3\
  42. $sheet_title\
  43. $name_level $(intro[5;]), $name_duration $duration mn ($year)<br>$(intro[8;])\
  44.  
  45. <div class="wims_sheet_desc">$sheet_desc</div>
  46. <p id="sheet_remark">$sheet_remark</p>
  47.  
  48. !if $n=0
  49.  $name_sheetempty
  50. !else
  51.  <div class="wims_sheet">
  52.  <ul class="wims_sheet_list">
  53.  !for i=1 to $n
  54.   !set ex=!record $i of $data
  55.   !distribute lines $ex into di,pa,require,we,ti,de
  56.   !set got=!word $i of $scores
  57.   !set mean=!word $i of $means
  58.   <li class="wims_sheet_list">$i.
  59.   !href module=$di&cmd=new&worksheet=$public$shn&$pa $ti
  60. , $de
  61.  </li>
  62.  !next i
  63.  </ul>
  64.  </div>
  65.  !if $wims_user=supervisor
  66.  !set wims_menu_items=!append line import,1,cmd=reply&job=import \
  67.  sheetsource,1,cmd=reply&job=raw\
  68.  to $wims_menu_items
  69.  !endif
  70. !endif
  71.  
  72. !set wims_menu_items=!append line printable,1,cmd=reply&job=print\
  73. to $wims_menu_items
  74.  
  75. !tail
  76.  
  77.