Subversion Repositories wimsdev

Rev

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