Subversion Repositories wimsdev

Rev

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

  1.  
  2. !read adm/css.phtml
  3. !header1
  4.  
  5. !read lang/names.phtml.$moduclass_lang
  6. !read adm/class/classname.phtml $wims_classname\
  7. $wims_institutionname
  8.  
  9. !read adm/title.phtml 1\
  10. $classname\
  11. $name_title_showsheet
  12.  
  13. !if $error!=$empty
  14.   <div class="wims_msg alert">
  15.   !read lang/msg.phtml.$moduclass_lang
  16.   </div>
  17.   <p>
  18.   !href module=home $wims_name_class_home
  19. . </p>
  20.   !goto end
  21. !endif
  22. !if $varfilter!=$empty
  23.   !set name_classAverage=$name_groupAverage
  24. !endif
  25. !form reply
  26. <input type="hidden" name="job" value="showsheet" />
  27. <input type="hidden" name="numshowsheet" value="$numshowsheet" />
  28. !if $tv_listtechvar!=$empty
  29.   !read adm/vfilter/varfilter html
  30. !endif
  31. </form>
  32. !if $usercnt==0
  33.   $name_noyetparticipant
  34. !else
  35.   <p>$name_click
  36.   $wims_name_or
  37.   $name_post
  38.   </p>
  39.   <div class="wimscenter">
  40.   !set wims_ref_class=wims_button
  41.   !if $job_affi=quality
  42.     <span class="wims_button disabled"> $(name_affi[1])</span>
  43.     !href cmd=reply&job_affi=points&job=showsheet&numshowsheet=$numshowsheet $(name_affi[2])
  44.     !set wims_ref_class=wims_button
  45.     !href cmd=reply&job_affi=best&job=showsheet&numshowsheet=$numshowsheet $(name_affi[4])
  46.     !set wims_ref_class=wims_button
  47.     !href cmd=reply&job_affi=level&job=showsheet&numshowsheet=$numshowsheet $(name_affi[5])
  48.   !endif
  49.   !if $job_affi=points or $job_affi=notes
  50.     !href cmd=reply&job_affi=quality&job=showsheet&numshowsheet=$numshowsheet $(name_affi[1])
  51.     <span class="wims_button disabled"> $(name_affi[2])</span>
  52.     !set wims_ref_class=wims_button
  53.     !href cmd=reply&job_affi=best&job=showsheet&numshowsheet=$numshowsheet $(name_affi[4])
  54.     !set wims_ref_class=wims_button
  55.     !href cmd=reply&job_affi=level&job=showsheet&numshowsheet=$numshowsheet $(name_affi[5])
  56.   !endif
  57.   !if $job_affi=best
  58.     !href cmd=reply&job_affi=quality&job=showsheet&numshowsheet=$numshowsheet $(name_affi[1])
  59.     !set wims_ref_class=wims_button
  60.     !href cmd=reply&job_affi=points&job=showsheet&numshowsheet=$numshowsheet $(name_affi[2])
  61.     <span class="wims_button disabled"> $(name_affi[4])</span>
  62.     !set wims_ref_class=wims_button
  63.     !href cmd=reply&job_affi=level&job=showsheet&numshowsheet=$numshowsheet $(name_affi[5])
  64.   !endif
  65.   !if $job_affi=level
  66.     !href cmd=reply&job_affi=quality&job=showsheet&numshowsheet=$numshowsheet $(name_affi[1])
  67.     !set wims_ref_class=wims_button
  68.     !href cmd=reply&job_affi=points&job=showsheet&numshowsheet=$numshowsheet $(name_affi[2])
  69.     !set wims_ref_class=wims_button
  70.     !href cmd=reply&job_affi=best&job=showsheet&numshowsheet=$numshowsheet $(name_affi[4])
  71.     <span class="wims_button disabled"> $(name_affi[5])</span>
  72.   !endif
  73.   </div>
  74.   !set table_id=TABLE_showsheet
  75.   !set table_class=sortable
  76.   $table_header
  77.   !bound job_affi within points,quality, best, level default points
  78.   !if $job_affi=points
  79.     !let sign=%
  80.     !set sign1=100
  81.     !set sign2=1
  82.     !set pos=1
  83.     <caption>$name_percentagegot</caption>
  84.   !endif
  85.   !if $job_affi=quality
  86.     !let sign=$empty
  87.     !set sign1=10
  88.     !set sign2=1
  89.     <caption>$name_qualitygot</caption>
  90.     !set pos=2
  91.   !endif
  92.   !if $job_affi=best
  93.     !let sign=%
  94.     !set sign1=100
  95.     !set sign2=1
  96.     !set pos=3
  97.     <caption>$name_percentagebest</caption>
  98.   !endif
  99.   !if $job_affi=level
  100.     !let sign=$empty
  101.     !set sign1=10
  102.     !set sign2=10
  103.     !set pos=4
  104.     <caption>$(wims_name_thsheet[13])</caption>
  105.   !endif
  106.   !if $job_affi=
  107.     !let sign=%
  108.     !set sign1=100
  109.     <caption>$name_percentagedone</caption>
  110.   !endif
  111.   <thead>
  112.   $table_hdtr
  113.     <th scope="col">$wims_name_lastname, $wims_name_firstname</th>
  114.     <th scope="col" data-sort-method="number">$name_Average</th>
  115.     !let tot_0=0
  116.     !let nonzero_0=0
  117.     !for j=1 to $nbexo
  118.       !set e=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$(numshowsheet)
  119.       !distribute line $e into m_,n_,bidon,bidon,t_
  120.       <th scope="col" class="small" data-sort-method="number">
  121.         !set wims_ref_title=$t_
  122.         !href target=wims_internal cmd=new&module=$m_&$n_ $name_Exercise $j
  123.       </th>
  124.       !let tot_$j=0
  125.       !let nonzero_$j=0
  126.       !let trueusercnt_$j=0
  127.     !next j
  128.   </tr>
  129.   </thead>
  130.   <tbody>
  131.   !set trueusercnt=0
  132.   !for m=1 to $usercnt
  133.     !set uu=!record $m of wimshome/log/classes/$wims_class/.userlist
  134.     !distribute items $uu into user_lastname,user_firstname,uu
  135.     !if $varfilter_!=$empty
  136.       !reset var_filter_test
  137.       !read adm/vfilter/testfilter $uu\
  138. $varfilter_
  139.       !if $var_filter_test!=1
  140.         !goto enduser
  141.       !endif
  142.     !endif
  143.     !increase trueusercnt
  144.     $table_tr
  145.     !reset css_connected
  146.     !if $uu isitemof $wims_connectedlogin
  147.       !set css_connected=class="wims_connected"
  148.       !set wims_ref_title=connected
  149.     !endif
  150.     <td><span $css_connected>
  151.     !href cmd=reply&job=getuser&getuser=$uu $name_studentloc
  152.     </span></td>
  153.     !let tot=!getscorepercent user=$uu sheet=$numshowsheet
  154.     !let t=!word $pos of $tot
  155.     !let tot_0=$[$tot_0+$t]
  156.     !if $t!=0
  157.         !read adm/class/colors $[ceil(10*$t/$sign1)]
  158.         <td style=$style_note>
  159.         $[ceil(10*$t)/10/$sign2] $sign
  160.         !increase nonzero_0
  161.     !else
  162.         <td>--
  163.     !endif
  164.     </td>
  165.     !if $job_affi=points
  166.       !let tmp=!getscore user=$uu sheet=$numshowsheet
  167.     !endif
  168.     !if $job_affi=quality
  169.       !let tmp=!getscoremean user=$uu sheet=$numshowsheet
  170.     !endif
  171.     !if $job_affi=best
  172.       !let tmp=!getscorebest user=$uu sheet=$numshowsheet
  173.     !endif
  174.     !if $job_affi=level
  175.       !let tmp=!getscorelevel user=$uu sheet=$numshowsheet
  176.     !endif
  177.     !for k=1 to $nbexo
  178.       !if $indtechvar=$empty or $techval=$empty or $techval isitemof $(list_indiv[$k;])
  179.         !let t=!word $k of $tmp
  180.         !let try=!getscoretry user=$uu sheet=$numshowsheet work=$k
  181.         !if $t!=0
  182.           !increase nonzero_$k
  183.         !endif
  184.         !increase trueusercnt_$k
  185.         !if $job_affi iswordof points best
  186.           !let div=!word $k of $require
  187.           !if $div!=0
  188.             !let t=$[rint($t/$div*10000)/100]
  189.           !else
  190.             !let t=100
  191.           !endif
  192.         !endif
  193.         !if $try>0
  194.           !read adm/class/colors $[ceil(10*$t/$sign1)]
  195.           <td style=$style_note>
  196.             $t $sign
  197.             !let tot_$k=$[$(tot_$k)+$t]
  198.         !else
  199.           <td>--
  200.         !endif
  201.         </td>
  202.       !else
  203.         <td> &#10060; </td>
  204.      !endif
  205.     !next k
  206.       </tr>
  207. :enduser
  208.   !next m
  209.   </tbody>
  210.   <tfoot>
  211.   $table_hdtr<th>$name_classAverage ($trueusercnt)</th>
  212.   !read adm/class/colors $[ceil($tot_0/$trueusercnt*10)/$sign1/$sign2]
  213.   <td style=$style_note>$[rint($tot_0/$trueusercnt*10)/10/$sign2]$sign</td>
  214.   !for j=1 to $nbexo
  215.     !if $(tot_$j)>0
  216.       !read adm/class/colors $[ceil($(tot_$j)/$(trueusercnt_$j)*10/$sign1)]
  217.       <td style=$style_note>$[rint($(tot_$j)/$(trueusercnt_$j)*10)/10]$sign
  218.     !else
  219.       <td>--
  220.     !endif
  221.       </td>
  222.   !next j
  223.   </tr>
  224.   !if $nonzero_0>0
  225.     $table_hdtr<th>$name_posAverage ($nonzero_0)</th>
  226.     !read adm/class/colors $[ceil($tot_0/$nonzero_0*10/$sign1/$sign2)]
  227.     <td style=$style_note>$[rint($tot_0/$nonzero_0*10)/10/$sign2]$sign </td>
  228.     !for j=1 to $nbexo
  229.       !if $(nonzero_$j)>0
  230.         !read adm/class/colors $[ceil($(tot_$j)/$(nonzero_$j)*10/$sign1)]
  231.         <td style=$style_note>
  232.         $[rint($(tot_$j)/$(nonzero_$j)*10)/10]$sign
  233.       !else
  234.         <td>--
  235.       !endif
  236.       </td>
  237.     !next j
  238.     </tr>
  239.   !endif
  240.   </tfoot>
  241.   $table_end
  242.   !read tablesort.phtml
  243. !endif
  244.  
  245. !set wims_menu_items=!append line part_list,1,cmd=reply&job_affi=notes\
  246. refresh,1,cmd=reply&job=showsheet&numshowsheet=$numshowsheet\
  247. to $wims_menu_items
  248. :end
  249. !tail
  250.