Subversion Repositories wimsdev

Rev

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

  1. !set tmp=!defof DF_SEVERITY in wimshome/public_html/bases/sys/define.conf
  2. !distribute words $tmp into tmp_w,tmp_s,tmp_ss
  3. !read adm/title.phtml 1\
  4. $classname\
  5. $name_workdetail $name_studentloc
  6.  
  7. <div class="center"><span class="wims_emph">
  8.   !if $wims_user=supervisor
  9.     !reset css_connected
  10.     !if $getuser isitemof $wims_connectedlogin
  11.       !set css_connected=class="wims_connected"
  12.       !set wims_ref_title=connected
  13.     !endif
  14.     <span $css_connected>
  15.       !href module=adm/class/usermanage/&job=userprop&getuser=$getuser $name_studentloc
  16.     </span>
  17.   !endif
  18.   </span><br /><span class="small">$wims_name_Login: <span class="tt">$getuser</span>
  19.   !if $user_external_auth!=$empty
  20.     (<span class="tt">$user_external_auth</span>)
  21.   !endif
  22.   !if $user_email!=$empty
  23.     <br />
  24.     $wims_name_email: <a href="mailto:$user_email">$user_email</a>
  25.   !endif
  26. </span></div>
  27.  
  28. !let testphoto=!filexists wimshome/sessions/$wims_session/getfile/photoboard/$getuser
  29. !if $testphoto=yes
  30.   <div id="userlogo" class="float_right">
  31.     <img src="$wims_ref_name?session=$wims_session&cmd=getfile&special_parm=photoboard/$getuser" style="position:absolute;top:50px;right:5%;" alt="$name_student2" />
  32.   </div>
  33.   !reset testphoto
  34. !else
  35.   !if $user_photourl!=
  36.     <img src="$user_photourl" style="width:100px;position:absolute;top:50px;right:5%;" alt="$name_student2" />
  37.   !endif
  38. !endif
  39. !if $eremain>0
  40.   <br class="spacer" />
  41.   $name_activesession:
  42.   !href cmd=reply&job=userexam&getuser=$getuser $esession
  43.   !!!else
  44.   !! ----- transfere dans usermanage (il s'agit d'un lien de transfert de score pour deplacer des eleves d'une classe a l'autre (dans un portail ou un groupement)
  45.   !! !if $wims_user=supervisor and $wims_supertype iswordof 2 4
  46.   !!  !readproc adm/gateway/transfer $getuser test
  47.   !!  !if $transfer_test>0
  48.   !!   !href module=adm/class/usermanage&job=transfer&getuser=$getuser $name_transfer
  49.   !!  !endif
  50.   !! !endif
  51. !endif
  52.  
  53. <br class="spacer" />
  54.  
  55. !if $manual>0 and $gcnt>0 and $teacher!=$empty
  56.   $table_header
  57.   <caption><span class="small">
  58.   $name_minmax:
  59.   $min_glob/$mean_glob/$max_glob</span></caption>
  60.   <thead>
  61.   $table_hdtr<th>$wims_name_name</th><th>$(wims_name_thsheet[6])</th><th>$(wims_name_thsheet[9])</th></tr>
  62.   </thead><tbody>
  63.   $table_tr<th>$name_manualscore</th>
  64.      <td>$manual%</td>
  65.      !read adm/class/colors $[ceil(10*$mav/$scoremax)]
  66.      <td style=$style_note>$mav</td></tr>
  67.   $table_tr<th>$name_autoscore</th>
  68.      <td>$[100-$manual]%</td>
  69.      !read adm/class/colors $[ceil(10*$per/$scoremax)]
  70.      <td style=$style_note>$per</td></tr>
  71.   $table_tr<th>$name_globalaverage / $scoremax</th>
  72.      <td>100%</td>
  73.      !read adm/class/colors $[ceil(10*$globalav/$scoremax)]
  74.      <td style=$style_note>$globalav</td></tr>
  75.   </tbody>
  76.   $table_end
  77.  
  78.   !set table_id=TABLE_manual
  79.   !set table_class=sortable
  80.   $table_header
  81.   <thead>
  82.     <tr><th colspan="3">$name_manualscore
  83.     !if $wims_user=supervisor
  84.       <br />
  85.       !href lang=$lang&module=adm/class/grades&method=user&un=$getuser $wims_name_change
  86.     !endif
  87.     </th></tr>
  88.     $table_hdtr<th>$(wims_name_thsheet[2])</th><th>$(wims_name_thsheet[4])</th><th>$(wims_name_thsheet[9])</th></tr>
  89.   </thead>
  90.   !set v_=0
  91.   <tbody>
  92.   !for i=1 to $gcnt
  93.     $table_tr<td>$(titles[2+$i])</td><td>$(w$i)</td>
  94.     !read adm/class/colors $[10*ceil($(g_$i))/$scoremax]
  95.     <td style=$style_note>$(g_$i)</td></tr>
  96.   !next i
  97.   </tbody>
  98.   <tfoot>
  99.     $table_hdtr<th colspan="2">$name_Average</th>
  100.     !read adm/class/colors $[ceil(10*$mav/$scoremax)]
  101.     <td style=$style_note>$mav</td></tr>
  102.   </tfood>
  103.   $table_end
  104.   !read tablesort.phtml
  105. !else
  106.   <div class="wimscenter">
  107.   $name_globalaverage: <b>$per</b> / $scoremax.
  108.   !if $min_glob<$scoremax
  109.     <br /><span class="small">$name_minmax:
  110.     $min_glob/$mean_glob/$max_glob</span>
  111.   !endif
  112.   </div>
  113. !endif
  114.  
  115.  
  116. !!readdef wimshome/log/classes/$wims_class/.def
  117. !!default class_topscores=0
  118. !if $class_topscores>0
  119.  
  120.   $table_header$table_hdtr<th colspan="2">$name_topten</td></tr>
  121.   !for i=1 to $class_topscores
  122.     !set L=!line $i of $TT
  123.     !if $class_anonymtopscores=yes
  124.       !set name=$i
  125.     !else
  126.       !set name=!item 1 of $L
  127.       !set firstname=!item 2 of $L
  128.       !set name=$name $firstname
  129.     !endif
  130.     !set avg=!item 4 of $L
  131.     $table_tr
  132.       <td class="small" style="text-align:right;font-weight:bold">
  133.       $name &nbsp;</td>
  134.       <td style="text-align:left" class="small">&nbsp;$avg</td>
  135.     </tr>
  136.   !next i
  137.   $table_end
  138.  
  139. !endif
  140.  
  141. !! ---------------- display table for each exam session
  142. !if $eactivecnt>0
  143.   !set table_id=TABLE_exam
  144.   !set table_class=sortable
  145.   $table_header
  146.   <thead>
  147.   <tr><th colspan="4">$name_examnote
  148.   !if $wims_user=supervisor or $class_examshow!=no
  149.     <span class="small">
  150.     !href cmd=reply&job=examcheck&checkuser=$getuser [$wims_name_detail]
  151.     </span>
  152.   !endif
  153.   </th></tr>
  154.   $table_hdtr
  155.     <th scope="col">$(wims_name_thsheet[1])</th>
  156.     <th scope="col">$(wims_name_thsheet[2])</th>
  157.     <th scope="col">$(wims_name_thsheet[9])/$scoremax</th>
  158.   </tr>
  159.   </thead>
  160.   <tbody>
  161.   !for i in $activexams
  162.     !set l=!record $i of wimshome/log/classes/$wims_class/exams/.exams
  163.     !set t=!line 4 of $l
  164.     !set st=!line 1 of $l
  165.     !set ew=!line $i of $examweights
  166.     !if $st<=2 or $ew>0
  167.      $table_tr
  168.       <td>$i</td>
  169.       <td>$t</td>
  170.       !if $[rint(10*$(es_$i)*$scoremax)/100]>0
  171.         !read adm/class/colors $[ceil($(es_$i))]
  172.         <td style=$style_note>$[rint(10*$(es_$i)*$scoremax)/100]</td>
  173.       !else
  174.         <td>--</td>
  175.       !endif
  176.      </tr>
  177.     !endif
  178.   !next i
  179.   </tbody>
  180.   $table_end
  181.   !read tablesort.phtml
  182. !endif
  183.  
  184. !! ------------------ display table for each sheet
  185. !set tmp=!defof DF_SEVERITY in wimshome/public_html/bases/sys/define.conf
  186. !distribute words $tmp into tmp_w,tmp_s,tmp_ss
  187. !for i=1 to $activecnt
  188.   !set l_=!line $i of $activesheets
  189.   !distribute items $l_ into n_,e_
  190.   !set L_=!line $n_ of $defaultformula
  191.   !reset A_ B_ C_
  192.   !distribute word $L_ into A_,B_,C_
  193.   !default A_=$tmp_w
  194.   !default B_=$tmp_s
  195.   !default C_=$tmp_ss
  196.   !set t_=!item 3 to -1 of $l_
  197.   !set t_=!char 1 to $title_limit of $t_
  198.   !set v_=!getscorerequire sheet=$n_ user=$getuser
  199.   !set w_=!wordcnt $v_
  200.   !set S_=0
  201.   !for k=1 to $w_
  202.     !set a_=!word $k of $v_
  203.     !set S_=$[$S_+$a_]
  204.   !next k
  205.   !if $S_<=0
  206.     !goto next
  207.   !endif
  208.   !set sw=!line $[$n_+1] of $shweights
  209.   !set q=!word 2 of $sw
  210.   !set sw=!word 3 of $sw
  211.   !bound sw between integer 0 and 2 default $tmp_ss
  212.   !bound q between integer 0 and 6 default $tmp_s
  213.   !set seq_open=!defof sequence_open in wimshome/log/classes/$wims_class/seq/.def
  214.   !if $seq_open!=yes
  215.     !set hat=$name_Sheet $n_&nbsp;: $t_
  216.   !else
  217.     !set hat=$wims_name_sequence $(t_[1])&nbsp;: $(t_[2..-1])
  218.   !endif
  219.  
  220.   <br class="spacer" />
  221.   !if $wims_user=supervisor
  222.     !set nb_indic=5
  223.   !else
  224.     !set nb_indic=3
  225.   !endif
  226.   !set P_=!line $n_ of $percents
  227.   !distribute words $P_ into p1,p2,p3,p4
  228.   !if $p2!=$empty
  229.     !distribute item $[$p1/100],$[$p2/10],$[$p3/100],$[$p4/100] into x0_,y_,x1_,x2_
  230.     !set ff_$n_=!mathsubst Q=$y_ in $(f_$n_)
  231.     !for sev=0 to 2
  232.       !set ff_$n_=!mathsubst I$sev=$(x$(sev)_) in $(ff_$n_)
  233.     !next
  234.     !set p_=$[rint(100*$scoremax*$(ff_$n_))/100]
  235.   !endif
  236.   !set table_id=TABLE_sheet$i
  237.   !set table_class=sortable
  238.   $table_header
  239.   <thead id="sheet$n_">
  240.   <tr><th colspan="$[$nb_indic+5]" style="text-align:left">
  241.   !if $p2!=$empty
  242.     <div class="float_left">
  243.       !href module=adm/sheet&sh=$n_ $hat
  244.       <ul>
  245.         <li>$(wims_name_thsheet[4]): $A_</li>
  246.         !if $wims_user=supervisor
  247.           <li>$(wims_name_thsheet[8]):
  248.             !lowercase $(f_$n_)
  249.             !set wims_ref_class=wims_button_help
  250.             !href cmd=help&special_parm=$n_ $(wims_name_help)
  251.           </li>
  252.         !endif
  253.         !!global note
  254.         !if $(min_$n_)<$scoremax
  255.           <li>$name_minmax: $(min_$n_)/$(mean_$n_)/$(max_$n_)</li>
  256.         !endif
  257.       </ul>
  258.     </div>
  259.     !reset tmp_ss
  260.     <ul class="float_right">
  261.       !! score
  262.       <li>$(wims_name_thsheet[9]): $p_ / $scoremax.</li>
  263.       !! quality
  264.       !if $wims_user=supervisor or $q!=1
  265.         <li>$(wims_name_thsheet[7]): $p2/10</li>
  266.       !endif
  267.       !! Cumul
  268.       !if $wims_user=supervisor or $sw=0
  269.         <li>$(wims_name_thsheet[5]): $p1%</li>
  270.       !endif
  271.       !! Best score
  272.       !if $wims_user=supervisor or $sw=1
  273.         <li>$(wims_name_thsheet[10]): $p3%</li>
  274.       !endif
  275.       !! Acquired
  276.       !if $wims_user=supervisor or $sw=2
  277.         <li>$(wims_name_thsheet[13]): $[$p4/10]/10</li>
  278.       !endif
  279.     </ul>
  280.   !else
  281.     !href module=adm/sheet&sh=$n_ $hat
  282.   !endif
  283.   </div>
  284.   </th></tr>
  285.   $table_hdtr
  286.     <th scope="col" data-sort-method="number">$(wims_name_thsheet[1])</th>
  287.     <th scope="col">$(wims_name_thsheet[2])</th>
  288.     <th scope="col" data-sort-method="number">$(wims_name_thsheet[3])</th>
  289.     <th scope="col" data-sort-method="number">$(wims_name_thsheet[4])</th>
  290.     !!qualite
  291.     <th scope="col" data-sort-method="number">$(wims_name_thsheet[7])</th>
  292.     !if $wims_user=supervisor or $sw=0
  293.       !!I0: percentage work (related to cumul)
  294.       <th scope="col" data-sort-method="number">$(wims_name_thsheet[5])</th>
  295.     !endif
  296.     !if $wims_user=supervisor or $sw=1
  297.       !!I1: best percentage
  298.       <th scope="col" data-sort-method="number">$(wims_name_thsheet[10])</th>
  299.     !endif
  300.     !if $wims_user=supervisor or $sw=2
  301.       !!I2: level
  302.       <th scope="col" data-sort-method="number">$(wims_name_thsheet[13])</th>
  303.     !endif
  304.     !!last
  305.     <th scope="col" data-sort-method="number">$(wims_name_thsheet[12])</th>
  306.     !!number try
  307.     <th scope="col" data-sort-method="number">
  308.       <div class="wims_tooltip">$(wims_name_thsheet[11])
  309.         <div class="wims_tooltiptext left" style="width:50em">
  310.           $name_tryhelp
  311.         </div>
  312.       </div>
  313.     </th>
  314.   </tr>
  315.   </thead>
  316.   <tbody>
  317.   !for j=1 to $e_
  318.     !let d=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$n_
  319.     !distribute line $d into t,t,req_,weight_,title_,t
  320.     $table_tr
  321.     <td>$j</td>
  322.     <td>$(title_)</td>
  323.     <td>$(req_)</td>
  324.     <td>$(weight_)</td>
  325.     !set try=!getscoretry user=$getuser sheet=$n_ work=$j
  326.     !set alltry=!getscorealltries user=$getuser sheet=$n_ work=$j
  327.     !if $alltry<=0
  328.       !set makelist=!makelist <td>--</td> for j=1 to $nb_indic+1
  329.       !replace , by in $makelist
  330.     !else
  331.       !!!quality in exercise will always appear.
  332.       !set d_=!getscorequality user=$getuser sheet=$n_ work=$j
  333.       !default d_=0
  334.       !read adm/class/colors $[ceil($d_)]
  335.       <td style=$style_note>$d_</td>
  336.       !!cumul
  337.       !if $wims_user=supervisor or $sw=0
  338.         !set d_=!getscore user=$getuser sheet=$n_ work=$j
  339.         !default d_=0
  340.         !!percentage
  341.         !if $(req_)>0
  342.           !read adm/class/colors $[ceil(10*$d_/$(req_))]
  343.           <td style=$style_note>$[ceil(100*$d_/$(req_))]%</td>
  344.         !else
  345.           <td>--</td>
  346.         !endif
  347.       !endif
  348.       !if $wims_user=supervisor or $sw=1
  349.         !!best percentage
  350.         !set best=!getscorebest user=$getuser sheet=$n_ work=$j
  351.         !read adm/class/colors $[ceil(10*$best/$req_)]
  352.         <td style=$style_note>$[ceil($[$best*100/$req_])]%</td>
  353.       !endif
  354.       !if $wims_user=supervisor or $sw=2
  355.         !!level
  356.         !set level=!getscorelevel user=$getuser sheet=$n_ work=$j
  357.         !read adm/class/colors $[min(ceil($level+0.1),10)]
  358.         <td style=$style_note>$level</td>
  359.       !endif
  360.  
  361.       !!last
  362.       !set last=!getscorelast user=$getuser sheet=$n_ work=$j
  363.       !read adm/class/colors $[ceil($last)]
  364.       <td style=$style_note>$last</td>
  365.  
  366.       !!try
  367.       <td>
  368.         !set tmp=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$n_
  369.         !distribute lines $tmp into di,pa
  370.         !read getparm $pa, seedrepeat, exotrymax
  371.         !set tmp=!getseedscores user=$getuser sheet=$n_ work=$j
  372.         !set tmp=!declosing $tmp
  373.         !set tmp=!select $tmp where column 2 > -2
  374.         !set tmp_cnt=!itemcnt $(tmp[;1])
  375.         !if $get_seedrepeat>0
  376.           !set tmp_width=width:$[ceil($tmp_cnt/$get_seedrepeat)+1]em;
  377.         !else
  378.           !set tmp_width=width:$[$tmp_cnt+1]em;
  379.         !endif
  380.         <div class="wims_tooltip">
  381.           !if $get_exotrymax=$empty
  382.             $try + $[$alltry-$try]
  383.           !else
  384.            ($try + $[$alltry-$try]) | $get_exotrymax
  385.           !endif
  386.           <div class="wims_tooltiptext left" style="$tmp_width">
  387.             !read adm/class/seedscore.phtml [$tmp],$get_seedrepeat
  388.           </div>
  389.         </div>
  390.         !reset tmp get_seedrepeat tmp_width
  391.       </td>
  392.     !endif try
  393.     </tr>
  394.   !next j
  395.   </tbody>
  396.   $table_end
  397.   !read tablesort.phtml
  398.   :next
  399. !next i
  400.  
  401. !read wimshome/public_html/themes/_widgets/topback.phtml
  402.  
  403. !if $exologs!=$empty
  404.   !set wims_menu_items=!append line itemsep,0,\
  405.  reg_ex,1,module=adm/class/exolog&cmd=new&job=list&checkuser=$getuser\
  406.  to $wims_menu_items
  407. !endif
  408. !set wims_menu_items=!append line rawdata,1,cmd=reply&job=getraw&getraw=$getuser\
  409. to $wims_menu_items
  410.  
  411. !if $wims_user=supervisor
  412.   !set wims_menu_items=!append line \
  413. account,1,module=adm/class/usermanage&job=userprop&getuser=$getuser\
  414. to $wims_menu_items
  415.   !if (($wims_supertype<3 and $wims_typename=class) or ($wims_supertype=4 and $wims_typename=course)) and $wims_showlivret!=no
  416.     !set wims_menu_items=!append line livret1,1,module=adm/class/livret&job=user&user=$getuser\
  417. to $wims_menu_items
  418.     !set wims_menu_items=!append line activity1,1,module=adm/class/activity&job=exobyday&user=$getuser\
  419. to $wims_menu_items
  420.   !endif
  421.   !set wims_menu_items=!append line itemsep,0, \
  422. part_list,1,cmd=resume\
  423. to $wims_menu_items
  424.   !read adm/class/getnextuser $wims_class,$getuser,getuser,getuser
  425. !else
  426.   !if $wims_showlivret!=no
  427.     !set livret_nbcomp=!recordcnt wimshome/log/classes/$wims_class/livret/.comps
  428.     !if $livret_nbcomp >0
  429.       !set wims_menu_items=!append line livret,1,module=adm/class/livret to $wims_menu_items
  430.     !endif
  431.   !endif
  432. !endif
  433. <br class="spacer" />
  434.  
  435. !reset tmp tmp_w tmp_s tmp_ss
  436.