Subversion Repositories wimsdev

Rev

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

  1. <!-- adm/sheet/class.phtml START -->
  2. !readdef wimshome/log/classes/$wims_class/.def
  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. !if $seq=$empty and $wims_sequence=$empty
  13.   !read adm/title.phtml 1\
  14. $classname\
  15. $sheet_title \
  16. $name_title
  17. !else
  18.   !read adm/title.phtml 1\
  19. $classname\
  20. $sheet_title
  21. !endif
  22.  
  23. !! -------- manage multiple view for supervisor in case of individualisation techvar
  24.   !if $wims_user=supervisor and $sheet_indivtechvar!=$empty
  25.     <div class="wims_msg info">
  26.     $name_indivsupervisor
  27.     !form reply
  28.       <div class="field box">
  29.         <label for="choosevalue">$name_choosevalue:</label>
  30.         <select id="choosevalue" name="choosevalue" onchange="submit()">
  31.           !if $choosevalue=EMPTY
  32.               <option value="EMPTY" selected="selected">$name_novalue</option>
  33.           !else
  34.               <option value="EMPTY">$name_novalue</option>
  35.           !endif
  36.           !for val in $techvarlistval
  37.             !if $choosevalue=$val
  38.               <option value="$val" selected="selected">$val</option>
  39.             !else
  40.               <option value="$val">$val</option>
  41.             !endif
  42.           !next i
  43.         </select>
  44.       </div>
  45.     !formend
  46.     </div>
  47.   !endif
  48. !! --------- end of manage of indiv
  49.  
  50.  
  51. <div class="wims_sheet_desc">$sheet_desc</div>
  52. !let class_showlivret=!defof class_showlivret in wimshome/log/classes/$wims_class/.def
  53. !let tmp=!record $sh of wimshome/log/classes/$wims_class/livret/sheetindex.rc
  54. !if $class_showlivret=yes and $tmp!=$empty
  55.   <div class="wims_sheet_desc">
  56.   $name_skillbullet $tmp
  57.   </div>
  58. !endif
  59. !!expiration date in a variable
  60. !set expir_user=!record 0 of wimshome/log/classes/$wims_class/.$sh
  61.  
  62. !set cle=!word 1 of $expir_user
  63. !! process for technical variable definition (replace expir_user by value decide by the technical variable)
  64. !if \ isin $cle
  65.   !set idtechvar=!line 1 of $expir_user
  66.   !set idtechvar=!char 2 to -1 of $idtechvar
  67.   !readproc adm/class/userdef ,$wims_class,$wims_user
  68.   !set val=!defof user_techvar_$(idtechvar) in $userdef
  69.   !default val=EMPTY
  70.   !reset expir_user
  71.   !set expir_user=!defof techvar_$val in wimshome/log/classes/$wims_class/.$sh
  72.   !default expir_user=none
  73. !endif
  74. !! end process technical variable
  75.  
  76. !if $expir_user=none
  77.   <div class="wims_msg warning" id="name_student5">
  78.   <span class="wims_warning">$wims_name_warning</span>.
  79.   $name_student5
  80.   </div>
  81.   !goto none
  82. !endif
  83.  
  84. !if $expir_user!=$empty
  85.   !set cle=!word 1 of $expir_user
  86.   !!! a corriger
  87.   !set expir_user=!words2items $expir_user
  88.   !for l_ in $expir_user
  89.     !set l_=!replace internal < by ?, in $l_
  90.     !if ? isitemof $l_
  91.       !set sheet_expiration_user=$(l_[2])
  92.     !endif
  93.   !next
  94.   !for l_ in $expir_user
  95.     !set l_=!replace internal > by ?, in $l_
  96.     !if ? isitemof $l_
  97.       !set sheet_beginning_user=$(l_[2])
  98.     !endif
  99.   !next
  100. !endif
  101.  
  102. !if $sheet_beginning_user!=$empty and $sheet_active=1
  103.   !set expday=!char 7,8 of $sheet_beginning_user
  104.   !set expmon=!char 5,6 of $sheet_beginning_user
  105.   !set expyear=!char 1 to 4 of $sheet_beginning_user
  106.   !set exphour=!char 10 to -1 of $sheet_beginning_user
  107.   !if $exphour!=
  108.    !set exphour=$ ($exphour)
  109.   !endif
  110.   !read adm/date.phtml
  111.   !set expmon=!item $expmon of $months
  112.   !set fromdate=$name_from $expday $expmon $expyear$exphour
  113. !endif
  114.  
  115. !default sheet_expiration_user=$sheet_expiration
  116. !if $sheet_expiration_user!=$empty and $sheet_active=1
  117.   !set expday=!char 7,8 of $sheet_expiration_user
  118.   !set expmon=!char 5,6 of $sheet_expiration_user
  119.   !set expyear=!char 1 to 4 of $sheet_expiration_user
  120.   !set exphour=!char 10 to -1 of $sheet_expiration_user
  121.   !if $exphour!=
  122.     !set exphour=$ ($exphour)
  123.   !endif
  124.   !read adm/date.phtml
  125.   !set expmon=!item $expmon of $months
  126.   <p id="name_student1">$name_student1$exphour</p>
  127. !endif
  128.  
  129. :none
  130. !if $sheet_active=2
  131.   <div class="wims_msg warning" id="name_student2">
  132.   <span class="wims_warning">$wims_name_warning</span>.
  133.   $name_student2</div>
  134. !endif
  135.  
  136. !if $n=0
  137.   !if $sheet_active=$empty
  138.     $name_sheetempty
  139.   !else
  140.     <span class="name_student4">$name_student4</span>
  141.   !endif
  142. !else
  143.   !set wims_menu_items=!append line printable,1,cmd=reply&job=print\
  144.   itemsep,0,\
  145. to $wims_menu_items
  146.   !if $exolog!=$empty
  147.     !set wims_menu_items=!append line exolog,1, module=adm/class/exolog&job=llist&logsheet=$sh \
  148. itemsep,0,\
  149.  to $wims_menu_items
  150.   !endif
  151.   !set scorestat=!getscorestatus sheet=$sh
  152.   !if $scorestat=yes
  153.     !if $authscoresuspend!=no
  154.       !if $wims_scorereg!=suspend
  155.         $name_scoreopen
  156.         !set wims_ref_class=wims_button
  157.         !href cmd=resume&job=suspend $wims_name_scoreclose2
  158.         !set wims_menu_items=!append line scoreclose2,1,cmd=resume&job=suspend to $wims_menu_items
  159.       !else
  160.         !set scorestat=no
  161.         $wims_name_scoresuspend
  162.         !set wims_ref_class=wims_button
  163.         !href cmd=resume&job=reopen $wims_name_scorereopen
  164.         !set wims_menu_items=!append line scorereopen,1,cmd=resume&job=reopen to $wims_menu_items
  165.       !endif
  166.     !else
  167.       $name_scoreclosesup
  168.     !endif
  169.   !else
  170.     <div class="wims_msg warning">
  171.       $name_scoreclose
  172.     </div>
  173.   !endif
  174.   !set sevlist=!record 0 of wimshome/log/classes/$wims_class/sheets/.severity
  175.   !set sev=!line $sh + 1 of $sevlist
  176.   !reset s ss
  177.   !set ss=!word 3 of $sev
  178.   !set tmp=!defof DF_SEVERITY in wimshome/public_html/bases/sys/define.conf
  179.   !set tmp=!word 3 of $tmp
  180.   !bound ss between integer 0 and 2 default $tmp
  181.   !reset tmp
  182.  
  183.   <div class="wims_sheet">
  184.    <div class="wims_title_seq">$wims_name_Exercices</div>
  185.   <ol class="wims_sheet_list">
  186.   !reset wims_exotitle wims_exoicon wims_exodesc exodescshow
  187.   !set sh_=!record $sh of wimshome/log/classes/$wims_class/sheets/.sheets
  188.   !set exodescshow=!line 8 of $sh_
  189.   !bound exodescshow between 0,1 default 0
  190.   !for i=1 to $n
  191.     !set ex=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$sh
  192.     !distribute lines $ex into di,pa,bidon,bidon,ti,de,bidon,bidon,bidon,icon,indiv
  193.     !if $uservartechvalue=$empty or $uservartechvalue isitemof $indiv
  194.       !set require=!word $i of $requires
  195.       !set wims_listexo=!append item $i to $wims_listexo
  196.       !set got=!word $i of $scores
  197.       !set mean=!word $i of $means
  198.       !set best=!word $i of $bests
  199.       !set level=!word $i of $levels
  200.       !set alltry=!word $i of $alltries
  201.       !set dep=!row $i of $deps
  202.       !set dep=!trim $dep
  203.       !set wims_exoicon=$wims_exoicon$icon,
  204.       !set wims_exotitle=!append line $ti to $wims_exotitle
  205.       !if $exodescshow=1
  206.         !let de=!replace internal , by &#44; in $de
  207.        !let wims_exodesc=$wims_exodesc$de,
  208.       !endif
  209.       !read getparm $pa, seedrepeat exotrymax
  210.       <li class="wims_exo_item" id="ex$i">
  211.       !if $dep=$empty or $scorestat!=yes
  212.         !if $icon!=$empty
  213.           !set wims_ref_class=text_icon icon_$icon
  214.         !endif
  215.         !href module=$di&cmd=new&worksheet=$sh&$pa $ti
  216.         !set last=!char -1 of $de
  217.         !if $last notin >.!?
  218.           !set de=$(de).
  219.         !endif
  220.         <div class="wims_work_desc">$de</div>
  221.         <div class="wims_user_info">
  222.         !if $require>0
  223.           <span class="wims_sheet_score small">
  224.           $(wims_name_thsheet[7]): $[$mean]/10
  225.           !if $ss=0
  226.             $(wims_name_thsheet[5]): $[round(100*$got/$require)]%
  227.           !endif
  228.           !if $ss=1
  229.             $(wims_name_thsheet[10]): $[round(100*$best/$require)]%
  230.           !endif
  231.           !if $ss=2
  232.             $(wims_name_thsheet[13]): $[$level]/10
  233.           !endif
  234.           $(wims_name_thsheet[3]):$require
  235.           !if $get_exotrymax>0
  236.             $(wims_name_thsheet[14]):
  237.             $[min($get_exotrymax,$alltry)]/$get_exotrymax
  238.           !endif
  239.           </span>
  240.         !endif
  241.         </div>
  242.       !else
  243.         $ti, $de
  244.         !if $require>0
  245.           <span class="small">($name_score2)</span>
  246.         !endif
  247.       !endif
  248.       !if $dep!=$empty
  249.         <div class="wims_msg warning">
  250.         !if , isin $dep
  251.           $name_deps $dep
  252.         !else
  253.           $name_dep $dep
  254.         !endif
  255.         $name_dep2
  256.           </div>
  257.       !endif
  258.       !set seedscore=!getseedscores user=$wims_user sheet=$sh work=$i
  259.     !!user, sheet, exo, seedrepeat (by default 0)
  260.       !read adm/class/seedscore.phtml $seedscore,$get_seedrepeat
  261.       </li>
  262.     !endif
  263.   !next i
  264.   !let wims_exotitle=!replace , by &#44; in $wims_exotitle
  265.  !let wims_exotitle=!lines2items $wims_exotitle
  266.   !setdef wims_exotitle=$wims_exotitle\
  267. wims_sheettitle=$sheet_title\
  268. wims_exoicon=$wims_exoicon\
  269. wims_exodesc=$wims_exodesc\
  270.   in wimshome/sessions/$wims_session/var.stat
  271.  </ol>
  272.  </div>
  273.  !!!<div class="wimscenter">
  274.  !!!   !read adm/class/colors 0,legend
  275.  !!!   $output_legend
  276.  !!!</div>
  277. !endif
  278.  
  279. !if $wims_user=supervisor
  280.   !set wims_menu_items=!append line sheetmanagement,1,module=adm/class/sheet&sheet=$sh\
  281.  itemsep,0,\
  282. to $wims_menu_items
  283. !endif
  284.  
  285. !set wims_menu_items=!append line myscore,1,module=adm/class/userscore#sheet$sh\
  286. to $wims_menu_items
  287.  
  288. <!-- adm/sheet/class.phtml END -->
  289.  
  290. !tail
  291. !setdef wims_listexo=$wims_listexo in wimshome/sessions/$wims_session/var.stat
  292.  
  293.