Subversion Repositories wimsdev

Rev

Rev 6961 | Rev 10228 | 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.   !if .___ isin $(ti)___
  66.    !set ti=!replace internal .___ by in $(ti)___
  67.   !endif
  68.   <li class="wims_sheet_list">$i
  69.   !href module=$di&cmd=new&worksheet=$public$shn&$pa $ti
  70.   !if $de notsametext $empty
  71. , $de
  72.  !else
  73. .
  74.  !endif
  75.  </li>
  76.  !next i
  77.  </ul>
  78.  </div>
  79.  !if $wims_user=supervisor
  80.  !set wims_menu_items=!append line import,1,cmd=reply&job=import \
  81.  sheetsource,1,cmd=reply&job=raw\
  82.  to $wims_menu_items
  83.  !endif
  84. !endif
  85.  
  86. !set wims_menu_items=!append line printable,1,cmd=reply&job=print\
  87. to $wims_menu_items
  88.  
  89. <!-- adm/sheet/main.phtml END -->
  90.  
  91. !tail
  92.  
  93.