Subversion Repositories wimsdev

Rev

Rev 10228 | Rev 12654 | 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_msg alert">
  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.