Subversion Repositories wimsdev

Rev

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

  1. <!-- adm/sheet/class.phtml START -->
  2.  
  3. !read adm/css.phtml
  4. !header1
  5.  
  6. !if $sheet_docpage!=$empty
  7.  !changeto docpage.phtml
  8. !endif
  9. !read adm/class/classname.phtml $wims_classname\
  10. $wims_institutionname
  11.  
  12. !read adm/title.phtml 1\
  13. $classname\
  14. $sheet_title\
  15. $name_title
  16.  
  17. <div class="wims_sheet_desc">$sheet_desc</div>
  18. !let class_showlivret=!defof class_showlivret in wimshome/log/classes/$wims_class/.def
  19. !let tmp=!record $sh of wimshome/log/classes/$wims_class/livret/sheetindex.rc
  20. !if $class_showlivret=yes and $tmp!=$empty
  21.  <div class="wims_sheet_desc">
  22.   $name_skillbullet : $tmp
  23.  </div>
  24. !endif
  25. !!expiration date in a variable
  26. !set expir_user=!record 0 of wimshome/log/classes/$wims_class/.$sh
  27. !if $expir_user!=
  28.  !set expir_user=!replace internal \ by in $expir_user
  29.  !set expir_user=!getdef user__$expir_user in wimshome/log/classes/$wims_class/.users/$wims_user
  30.  !set expir_user=!words2items $expir_user
  31.  !for l_ in $expir_user
  32.    !set l_=!replace internal < by ?, in $l_
  33.    !if ? isitemof $l_
  34.      !set sheet_expiration_user=$(l_[2])
  35.    !endif
  36.  !next
  37. !endif
  38. !default sheet_expiration_user=$sheet_expiration
  39. !if $sheet_expiration_user!=$empty and $sheet_active=1
  40.  !set expday=!char 7,8 of $sheet_expiration_user
  41.  !set expmon=!char 5,6 of $sheet_expiration_user
  42.  !set expyear=!char 1 to 4 of $sheet_expiration_user
  43.  !set exphour=!char 10 to -1 of $sheet_expiration_user
  44.  !if $exphour!=
  45.    !set exphour=$ ($exphour)
  46.  !endif
  47.  !read adm/date.phtml
  48.  !set expmon=!item $expmon of $months
  49.  <p id="name_student1">$name_student1$exphour.</p>
  50. !endif
  51.  
  52. !if $sheet_active=2
  53.  <span class="wims_warning">$wims_name_warning</span>.
  54.  <p id="name_student2">$name_student2</p>
  55. !endif
  56. !if $n=0
  57.  !if $sheet_active=$empty
  58.   $name_sheetempty
  59.  !else
  60.   $name_student4
  61.  !endif
  62. !else
  63.  !set scorestat=!getscorestatus sheet=$sh
  64.  !if $scorestat=yes
  65.   !if $authscoresuspend!=no
  66.    !if $wims_scorereg!=suspend
  67.     $name_scoreopen
  68.     !href cmd=resume&job=suspend $wims_name_scoreclose2
  69. .
  70.     !set wims_menu_items=!append line scoreclose2,1,cmd=resume&job=suspend to $wims_menu_items
  71.    !else
  72.     !set scorestat=no
  73.     $wims_name_scoresuspend
  74.     !href cmd=resume&job=reopen $wims_name_scorereopen
  75. .
  76.     !set wims_menu_items=!append line scorereopen,1,cmd=resume&job=reopen to $wims_menu_items
  77.    !endif
  78.   !else
  79.    $name_scoreclosesup
  80.   !endif
  81.  !else
  82.   $name_scoreclose
  83.  !endif
  84.  
  85.  <div class="wims_sheet">
  86.  <ul class="wims_sheet_list">
  87.  !let wims_exotitle=$empty
  88.  !for i=1 to $n
  89.   !set ex=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$sh
  90.   !distribute lines $ex into di,pa,require,we,ti,de
  91.   !set got=!word $i of $scores
  92.   !set mean=!word $i of $means
  93.   !set dep=!row $i of $deps
  94.   !set dep=!trim $dep
  95.   !set wims_exotitle=!append line $ti to $wims_exotitle
  96.   <li class="wims_sheet_list">$i.
  97.   !if $dep=$empty or $scorestat!=yes
  98.    !href module=$di&cmd=new&worksheet=$sh&$pa $ti
  99. , $de
  100.    !if $require>0
  101.     <small>$name_score
  102.     $[$mean]/10.</small>
  103.    !endif
  104.   !else
  105.    <font color="red"><b>$ti</b></font>, $de
  106.    !if $require>0
  107.     <small>($name_score2)</small>
  108.    !endif
  109.   !endif
  110.   !if $dep!=$empty
  111.    <small>
  112.    !if , isin $dep
  113.     $name_deps $dep
  114.    !else
  115.     $name_dep $dep
  116.    !endif
  117.    $name_dep2
  118.    </small>
  119.   !endif
  120.  </li>
  121.  !next i
  122.  !let wims_exotitle=!replace , by &#44; in $wims_exotitle
  123. !let wims_exotitle=!lines2items $wims_exotitle
  124.  !setdef wims_exotitle=$wims_exotitle\
  125. wims_sheettitle=$sheet_title in wimshome/sessions/$wims_session/var.stat
  126.  </ul>
  127.  </div>
  128. !endif
  129.  
  130. !if $wims_user=supervisor
  131.  !set wims_menu_items=!append line sheetmanagement,1,module=adm/class/sheet&sheet=$sh\
  132. to $wims_menu_items
  133. !endif
  134. !if $n>0
  135. !set wims_menu_items=!append line printable,1,cmd=reply&job=print\
  136. to $wims_menu_items
  137.  !if $exolog!=$empty
  138.   !set wims_menu_items=!append line exolog,1, module=adm/class/exolog&job=llist&logsheet=$sh \
  139. to $wims_menu_items
  140.  !endif
  141. !endif
  142. !set wims_menu_items=!append line myscore,1,module=adm/class/userlist#sheet$sh\
  143. to $wims_menu_items
  144.  
  145. <!-- adm/sheet/class.phtml END -->
  146.  
  147. !tail
  148.  
  149.