Subversion Repositories wimsdev

Rev

Rev 4298 | Rev 5648 | 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. !if ? notin $duration
  42.  !let duration=- $name_duration $duration mn
  43. !else
  44.  !let duration=$empty
  45. !endif
  46. !read adm/title.phtml 3\
  47. $sheet_title\
  48. $name_level : $(name_wims_level_$(intro[5;])) $duration - $year<br>$(intro[8;])\
  49.  
  50. <div class="wims_sheet_desc">$sheet_desc</div>
  51. <p id="sheet_remark">$sheet_remark</p>
  52.  
  53. !if $n=0
  54.  $name_sheetempty
  55. !else
  56.  <div class="wims_sheet">
  57.  <ul class="wims_sheet_list">
  58.  !for i=1 to $n
  59.   !set ex=!record $i of $data
  60.   !distribute lines $ex into di,pa,require,we,ti,de
  61.   !set got=!word $i of $scores
  62.   !set mean=!word $i of $means
  63.   <li class="wims_sheet_list">$i.
  64.   !href module=$di&cmd=new&worksheet=$public$shn&$pa $ti
  65. , $de
  66.  </li>
  67.  !next i
  68.  </ul>
  69.  </div>
  70.  !if $wims_user=supervisor
  71.  !set wims_menu_items=!append line import,1,cmd=reply&job=import \
  72.  sheetsource,1,cmd=reply&job=raw\
  73.  to $wims_menu_items
  74.  !endif
  75. !endif
  76.  
  77. !set wims_menu_items=!append line printable,1,cmd=reply&job=print\
  78. to $wims_menu_items
  79.  
  80. !tail
  81.  
  82.