Subversion Repositories wimsdev

Rev

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

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