Subversion Repositories wimsdev

Rev

Rev 6146 | Rev 7664 | 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.  
  28. !if $expir_user!=
  29.   !if \ isin $expir_user
  30.    !set expir_user=!replace internal \ by in $expir_user
  31.    !set expir_user=!getdef user__$expir_user in wimshome/log/classes/$wims_class/.users/$wims_user
  32.   !endif
  33. !!! a corriger
  34.    !set expir_user=!words2items $expir_user
  35.    !for l_ in $expir_user
  36.      !set l_=!replace internal < by ?, in $l_
  37.      !if ? isitemof $l_
  38.       !set sheet_expiration_user=$(l_[2])
  39.      !endif
  40.    !next
  41.    !for l_ in $expir_user
  42.      !set l_=!replace internal > by ?, in $l_
  43.      !if ? isitemof $l_
  44.       !set sheet_beginning_user=$(l_[2])
  45.      !endif
  46.    !next
  47.  !endif
  48.  !if $sheet_beginning_user!=$empty and $sheet_active=1
  49.   !set expday=!char 7,8 of $sheet_beginning_user
  50.   !set expmon=!char 5,6 of $sheet_beginning_user
  51.   !set expyear=!char 1 to 4 of $sheet_beginning_user
  52.   !set exphour=!char 10 to -1 of $sheet_beginning_user
  53.   !if $exphour!=
  54.    !set exphour=$ ($exphour)
  55.   !endif
  56.   !read adm/date.phtml
  57.   !set expmon=!item $expmon of $months
  58.   !set fromdate=$name_from $expday $expmon $expyear$exphour
  59. !endif
  60. !default sheet_expiration_user=$sheet_expiration
  61. !if $sheet_expiration_user!=$empty and $sheet_active=1
  62.  !set expday=!char 7,8 of $sheet_expiration_user
  63.  !set expmon=!char 5,6 of $sheet_expiration_user
  64.  !set expyear=!char 1 to 4 of $sheet_expiration_user
  65.  !set exphour=!char 10 to -1 of $sheet_expiration_user
  66.  !if $exphour!=
  67.    !set exphour=$ ($exphour)
  68.  !endif
  69.  !read adm/date.phtml
  70.  !set expmon=!item $expmon of $months
  71.  <p id="name_student1">$name_student1$exphour
  72.  .</p>
  73. !endif
  74.  
  75. !if $sheet_active=2
  76.  <span class="wims_warning">$wims_name_warning</span>.
  77.  <p id="name_student2">$name_student2</p>
  78. !endif
  79. !if $n=0
  80.  !if $sheet_active=$empty
  81.   $name_sheetempty
  82.  !else
  83.   $name_student4
  84.  !endif
  85. !else
  86.  !set scorestat=!getscorestatus sheet=$sh
  87.  !if $scorestat=yes
  88.   !if $authscoresuspend!=no
  89.    !if $wims_scorereg!=suspend
  90.     $name_scoreopen
  91.     !href cmd=resume&job=suspend $wims_name_scoreclose2
  92. .
  93.     !set wims_menu_items=!append line scoreclose2,1,cmd=resume&job=suspend to $wims_menu_items
  94.    !else
  95.     !set scorestat=no
  96.     $wims_name_scoresuspend
  97.     !href cmd=resume&job=reopen $wims_name_scorereopen
  98. .
  99.     !set wims_menu_items=!append line scorereopen,1,cmd=resume&job=reopen to $wims_menu_items
  100.    !endif
  101.   !else
  102.    $name_scoreclosesup
  103.   !endif
  104.  !else
  105.   $name_scoreclose
  106.  !endif
  107.  
  108.  <div class="wims_sheet">
  109.  <ul class="wims_sheet_list">
  110.  !let wims_exotitle=$empty
  111.  !for i=1 to $n
  112.   !set ex=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$sh
  113.   !distribute lines $ex into di,pa,require,we,ti,de
  114.   !set got=!word $i of $scores
  115.   !set mean=!word $i of $means
  116.   !set dep=!row $i of $deps
  117.   !set dep=!trim $dep
  118.   !set wims_exotitle=!append line $ti to $wims_exotitle
  119.   <li class="wims_sheet_list">$i.
  120.   !if $dep=$empty or $scorestat!=yes
  121.    !href module=$di&cmd=new&worksheet=$sh&$pa $ti
  122. , $de
  123.    !if $require>0
  124.     <span class="small">$name_score
  125.     $[$mean]/10.</span>
  126.    !endif
  127.   !else
  128.    <span class="wims_warning">$ti</span>, $de
  129.    !if $require>0
  130.     <span class="small">($name_score2)</span>
  131.    !endif
  132.   !endif
  133.   !if $dep!=$empty
  134.    <span class="small">
  135.    !if , isin $dep
  136.     $name_deps $dep
  137.    !else
  138.     $name_dep $dep
  139.    !endif
  140.    $name_dep2
  141.    </span>
  142.   !endif
  143.  </li>
  144.  !next i
  145.  !let wims_exotitle=!replace , by &#44; in $wims_exotitle
  146. !let wims_exotitle=!lines2items $wims_exotitle
  147.  !setdef wims_exotitle=$wims_exotitle\
  148. wims_sheettitle=$sheet_title in wimshome/sessions/$wims_session/var.stat
  149.  </ul>
  150.  </div>
  151. !endif
  152.  
  153. !if $wims_user=supervisor
  154.  !set wims_menu_items=!append line sheetmanagement,1,module=adm/class/sheet&sheet=$sh\
  155. to $wims_menu_items
  156. !endif
  157. !if $n>0
  158. !set wims_menu_items=!append line printable,1,cmd=reply&job=print\
  159. to $wims_menu_items
  160.  !if $exolog!=$empty
  161.   !set wims_menu_items=!append line exolog,1, module=adm/class/exolog&job=llist&logsheet=$sh \
  162. to $wims_menu_items
  163.  !endif
  164. !endif
  165. !set wims_menu_items=!append line myscore,1,module=adm/class/userlist#sheet$sh\
  166. to $wims_menu_items
  167.  
  168. <!-- adm/sheet/class.phtml END -->
  169.  
  170. !tail
  171.  
  172.