Subversion Repositories wimsdev

Rev

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