Subversion Repositories wimsdev

Rev

Rev 15963 | Rev 15972 | 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.   <caption>$name_examnote</caption>
  148.   $table_hdtr
  149.     <th scope="col">$(wims_name_thsheet[1])</th>
  150.     <th scope="col">$(wims_name_thsheet[2])</th>
  151.     <th scope="col">$(wims_name_thsheet[9])/$scoremax</th>
  152.   </tr>
  153.   </thead>
  154.   <tbody>
  155.   !for i in $activexams
  156.     !set l=!record $i of wimshome/log/classes/$wims_class/exams/.exams
  157.     !set t=!line 4 of $l
  158.     !set st=!line 1 of $l
  159.     !set ew=!line $i of $examweights
  160.     !if $st<=2 or $ew>0
  161.      $table_tr
  162.       <td>$i</td>
  163.       <td>$t</td>
  164.       !if $[rint(10*$(es_$i)*$scoremax)/100]>0
  165.         !read adm/class/colors $[ceil($(es_$i))]
  166.         <td style=$style_note>$[rint(10*$(es_$i)*$scoremax)/100]</td>
  167.       !else
  168.         <td>--</td>
  169.       !endif
  170.      </tr>
  171.     !endif
  172.   !next i
  173.   </tbody>
  174.   $table_end
  175.   !read tablesort.phtml
  176. !endif
  177.  
  178. !! ------------------ display table for each sheet
  179. !set tmp=!defof DF_SEVERITY in wimshome/public_html/bases/sys/define.conf
  180. !distribute words $tmp into tmp_w,tmp_s,tmp_ss
  181. !for i=1 to $activecnt
  182.   !set exonumber=0
  183.   !set l_=!line $i of $activesheets
  184.   !distribute items $l_ into n_,e_,indtechvar
  185.   !set L_=!line $n_ of $defaultformula
  186.   !reset A_ B_ C_
  187.   !distribute word $L_ into A_,B_,C_
  188.   !default A_=$tmp_w
  189.   !default B_=$tmp_s
  190.   !default C_=$tmp_ss
  191.   !set t_=!item 4 to -1 of $l_
  192.   !set t_=!char 1 to $title_limit of $t_
  193.   !set v_=!getscorerequire sheet=$n_ user=$getuser
  194.   !set w_=!wordcnt $v_
  195.   !set S_=0
  196.   !for k=1 to $w_
  197.     !set a_=!word $k of $v_
  198.     !set S_=$[$S_+$a_]
  199.   !next k
  200.   !if $S_<=0
  201.     !goto next
  202.   !endif
  203.   !set sw=!line $[$n_+1] of $shweights
  204.   !set q=!word 2 of $sw
  205.   !set sw=!word 3 of $sw
  206.   !bound sw between integer 0 and 2 default $tmp_ss
  207.   !bound q between integer 0 and 6 default $tmp_s
  208.   !set seq_open=!defof sequence_open in wimshome/log/classes/$wims_class/seq/.def
  209.   !if $indtechvar!=$empty
  210.     !let pos_=!positionof item $indtechvar in $tv_listcode
  211.     !let nametechvar=!item $pos_ of $tv_listname
  212.     !set pos=!positionof item $nametechvar in $(user_vars[;1])
  213.     !set indtechvarvalue=!item $pos of $(user_vars[;2])
  214. !!    !set indtechvarvalue=!defof user_techvar_$indtechvar in $userdef
  215.     !set listvalue=!record $n_ of wimshome/log/classes/$wims_class/sheets/.vars
  216.     !set listvalue=!word 3 to -1 of $listvalue
  217.     !set listvalue=!words2items $listvalue
  218.     !bound indtechvarvalue within $empty,$listvalue default $empty
  219.     !if $indtechvarvalue=$empty
  220. !!      !set tmp=$name_withoutgroup
  221.         !reset tmp
  222.     !else
  223. !!      !set tmp=$name_group
  224.         !set tmp= - $nametechvar $indtechvarvalue
  225.     !endif
  226.   !else
  227.    !reset tmp
  228.   !endif
  229.   !if $seq_open!=yes
  230.     !set hat=$name_Sheet $n_$(tmp)&nbsp; : $t_
  231.   !else
  232.     !set hat=$wims_name_sequence $(t_[1])$tmp&nbsp; : $(t_[2..-1])
  233.   !endif
  234.  
  235.   <br class="spacer" />
  236.   !if $wims_user=supervisor
  237.     !set nb_indic=5
  238.   !else
  239.     !set nb_indic=3
  240.   !endif
  241.   !set P_=!line $n_ of $percents
  242.   !distribute words $P_ into p1,p2,p3,p4
  243.   !if $p2!=$empty
  244.     !distribute item $[$p1/100],$[$p2/10],$[$p3/100],$[$p4/100] into x0_,y_,x1_,x2_
  245.     !set ff_$n_=!mathsubst Q=$y_ in $(f_$n_)
  246.     !for sev=0 to 2
  247.       !set ff_$n_=!mathsubst I$sev=$(x$(sev)_) in $(ff_$n_)
  248.     !next
  249.     !set p_=$[rint(100*$scoremax*$(ff_$n_))/100]
  250.   !endif
  251.   !set table_id=TABLE_sheet$i
  252.   !set table_class=sortable
  253.   $table_header
  254.   <thead id="sheet$n_">
  255.   <tr><th colspan="$[$nb_indic+5]" style="text-align:left">
  256.   !if $p2!=$empty
  257.     <div class="float_left">
  258.       !href module=adm/sheet&sh=$n_ $hat
  259.       <ul>
  260.         <li>$(wims_name_thsheet[4]): $A_</li>
  261.         !if $wims_user=supervisor
  262.           <li>$(wims_name_thsheet[8]):
  263.             !lowercase $(f_$n_)
  264.             !set wims_ref_class=wims_button_help
  265.             !href cmd=help&special_parm=$n_ $(wims_name_help)
  266.           </li>
  267.         !endif
  268.         !!global note
  269.         !if $(min_$n_)<$scoremax
  270. !! ---- temporary modif
  271. !!          !if $indtechvar=$empty
  272.              <li>$name_minmax: $(min_$n_)/$(mean_$n_)/$(max_$n_)</li>
  273. !!          !else
  274. !!             <li>$name_minmax: &#10067; / &#10067; / &#10067; </li>
  275. !!          !endif
  276. !! ------ endof temporary
  277.         !endif
  278.       </ul>
  279.     </div>
  280.     !reset tmp_ss
  281.     <ul class="float_right">
  282.       !! score
  283.       <li>$(wims_name_thsheet[9]):
  284. !! ---- temporary modif
  285. !!          !if $indtechvar=$empty
  286.              $p_
  287. !!          !else
  288. !!             &#10067;
  289. !!          !endif
  290. !! ------ endof temporary
  291.       / $scoremax.</li>
  292.       !! quality
  293.       !if $wims_user=supervisor or $q!=1
  294.         <li>$(wims_name_thsheet[7]):
  295. !! ---- temporary modif
  296. !!          !if $indtechvar=$empty
  297.              $p2
  298. !!          !else
  299. !!             &#10067;
  300. !!          !endif
  301. !! ------ endof temporary
  302.         /10</li>
  303.       !endif
  304.       !! Cumul
  305.       !if $wims_user=supervisor or $sw=0
  306.         <li>$(wims_name_thsheet[5]):
  307. !! ---- temporary modif
  308. !!          !if $indtechvar=$empty
  309.              $p1
  310. !!          !else
  311. !!             &#10067;
  312. !!          !endif
  313. !! ------ endof temporary
  314.          %</li>
  315.       !endif
  316.       !! Best score
  317.       !if $wims_user=supervisor or $sw=1
  318.         <li>$(wims_name_thsheet[10]):
  319. !! ---- temporary modif
  320. !!          !if $indtechvar=$empty
  321.              $p3
  322. !!          !else
  323. !!             &#10067;
  324. !!          !endif
  325. !! ------ endof temporary
  326.         %</li>
  327.       !endif
  328.       !! Acquired
  329.       !if $wims_user=supervisor or $sw=2
  330.         <li>$(wims_name_thsheet[13]):
  331. !! ---- temporary modif
  332. !!          !if $indtechvar=$empty
  333.              $[$p4/10]
  334. !!          !else
  335. !!             &#10067;
  336. !!          !endif
  337. !! ------ endof temporary
  338.         /10</li>
  339.       !endif
  340.     </ul>
  341.   !else
  342.     !href module=adm/sheet&sh=$n_ $hat
  343.   !endif
  344.   </div>
  345.   </th></tr>
  346.   $table_hdtr
  347.     <th scope="col" data-sort-method="number">$(wims_name_thsheet[1])</th>
  348.     <th scope="col">$(wims_name_thsheet[2])</th>
  349.     <th scope="col" data-sort-method="number">$(wims_name_thsheet[3])</th>
  350.     <th scope="col" data-sort-method="number">$(wims_name_thsheet[4])</th>
  351.     !!qualite
  352.     <th scope="col" data-sort-method="number">$(wims_name_thsheet[7])</th>
  353.     !if $wims_user=supervisor or $sw=0
  354.       !!I0: percentage work (related to cumul)
  355.       <th scope="col" data-sort-method="number">$(wims_name_thsheet[5])</th>
  356.     !endif
  357.     !if $wims_user=supervisor or $sw=1
  358.       !!I1: best percentage
  359.       <th scope="col" data-sort-method="number">$(wims_name_thsheet[10])</th>
  360.     !endif
  361.     !if $wims_user=supervisor or $sw=2
  362.       !!I2: level
  363.       <th scope="col" data-sort-method="number">$(wims_name_thsheet[13])</th>
  364.     !endif
  365.     !!last
  366.     <th scope="col" data-sort-method="number">$(wims_name_thsheet[12])</th>
  367.     !!number try
  368.     <th scope="col" data-sort-method="number">
  369.       <div class="wims_tooltip">$(wims_name_thsheet[11])
  370.         <div class="wims_tooltiptext left" style="width:50em">
  371.           $name_tryhelp
  372.         </div>
  373.       </div>
  374.     </th>
  375.   </tr>
  376.   </thead>
  377.   <tbody>
  378.   !for j=1 to $e_
  379.     !let d=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$n_
  380.     !distribute line $d into t,t,t,t,title_,t,t,t,t,t,indiv_
  381.     !if $indtechvar=$empty or $(user_techvar_$indtechvar)=$empty or $(user_techvar_$indtechvar) isitemof $indiv_
  382.       !increase exonumber
  383.       $table_tr
  384.         <td>$exonumber</td>
  385.         <td>$(title_)</td>
  386.         <td>
  387.           !let req_=!getscorerequire user=$getuser sheet=$n_ work=$j
  388.           $(req_)
  389.         </td><td>
  390.           !getscoreweight user=$getuser sheet=$n_ work=$j
  391.         </td>
  392.         !set try=!getscoretry user=$getuser sheet=$n_ work=$j
  393.         !set alltry=!getscorealltries user=$getuser sheet=$n_ work=$j
  394.         !if $alltry<=0
  395.           !set makelist=!makelist <td>--</td> for j=1 to $nb_indic+1
  396.           !replace , by in $makelist
  397.         !else
  398.           !!!quality in exercise will always appear.
  399.           !set d_=!getscorequality user=$getuser sheet=$n_ work=$j
  400.           !default d_=0
  401.           !read adm/class/colors $[ceil($d_)]
  402.           <td style=$style_note>$d_</td>
  403.           !!cumul
  404.           !if $wims_user=supervisor or $sw=0
  405.             !set d_=!getscore user=$getuser sheet=$n_ work=$j
  406.             !default d_=0
  407.             !!percentage
  408.             !if $(req_)>0
  409.               !read adm/class/colors $[ceil(10*$d_/$(req_))]
  410.               <td style=$style_note>$[ceil(100*$d_/$(req_))]%</td>
  411.             !else
  412.               <td>--</td>
  413.             !endif
  414.           !endif
  415.           !if $wims_user=supervisor or $sw=1
  416.             !!best percentage
  417.             !set best=!getscorebest user=$getuser sheet=$n_ work=$j
  418.             !read adm/class/colors $[ceil(10*$best/$req_)]
  419.             <td style=$style_note>$[ceil($[$best*100/$req_])]%</td>
  420.           !endif
  421.           !if $wims_user=supervisor or $sw=2
  422.             !!level
  423.             !set level=!getscorelevel user=$getuser sheet=$n_ work=$j
  424.             !read adm/class/colors $[min(ceil($level+0.1),10)]
  425.             <td style=$style_note>$level</td>
  426.           !endif
  427.  
  428.           !!last
  429.           !set last=!getscorelast user=$getuser sheet=$n_ work=$j
  430.           !read adm/class/colors $[ceil($last)]
  431.           <td style=$style_note>$last</td>
  432.  
  433.           !!try
  434.           <td>
  435.             !set tmp=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$n_
  436.             !distribute lines $tmp into di,pa
  437.             !read getparm $pa, seedrepeat, exotrymax
  438.             !set tmp=!getseedscores user=$getuser sheet=$n_ work=$j
  439.             !set tmp=!declosing $tmp
  440.             !set tmp=!select $tmp where column 2 > -2
  441.             !set tmp_cnt=!itemcnt $(tmp[;1])
  442.             !if $get_seedrepeat>0
  443.               !set tmp_width=width:$[ceil($tmp_cnt/$get_seedrepeat)+1]em;
  444.             !else
  445.               !set tmp_width=width:$[$tmp_cnt+1]em;
  446.             !endif
  447.             <div class="wims_tooltip">
  448.               !if $get_exotrymax=$empty
  449.                 $try + $[$alltry-$try]
  450.               !else
  451.                 ($try + $[$alltry-$try]) | $get_exotrymax
  452.               !endif
  453.               <div class="wims_tooltiptext left" style="$tmp_width">
  454.                 !read adm/class/seedscore.phtml [$tmp],$get_seedrepeat
  455.               </div>
  456.             </div>
  457.             !reset tmp get_seedrepeat tmp_width
  458.           </td>
  459.         !endif try
  460.       </tr>
  461.     !endif
  462.   !next j
  463.   </tbody>
  464.   $table_end
  465.   !read tablesort.phtml
  466.   :next
  467. !next i
  468.  
  469. !read wimshome/public_html/themes/_widgets/topback.phtml
  470.  
  471. !if $exologs!=$empty
  472.   !set wims_menu_items=!append line itemsep,0,\
  473.  reg_ex,1,module=adm/class/exolog&cmd=new&job=list&checkuser=$getuser\
  474.  to $wims_menu_items
  475. !endif
  476. !set wims_menu_items=!append line rawdata,1,cmd=reply&job=getraw&getraw=$getuser\
  477. to $wims_menu_items
  478. !if $wims_user=supervisor or $class_examshow!=no
  479.   !set wims_menu_items=!append line examdetail,1,cmd=reply&job=examcheck&checkuser=$getuser\
  480. to $wims_menu_items
  481. !endif
  482.  
  483. !if $wims_user=supervisor
  484.   !set wims_menu_items=!append line \
  485. account,1,module=adm/class/usermanage&job=userprop&getuser=$getuser\
  486. to $wims_menu_items
  487.   !if (($wims_supertype<3 and $wims_typename=class) or ($wims_supertype=4 and $wims_typename=course)) and $wims_showlivret!=no
  488.     !set wims_menu_items=!append line livret1,1,module=adm/class/livret&job=user&user=$getuser\
  489. to $wims_menu_items
  490.     !set wims_menu_items=!append line activity1,1,module=adm/class/activity&job=exobyday&user=$getuser\
  491. to $wims_menu_items
  492.   !endif
  493.   !set wims_menu_items=!append line itemsep,0, \
  494. part_list,1,cmd=resume\
  495. to $wims_menu_items
  496.   !read adm/class/getnextuser $wims_class,$getuser,getuser,getuser
  497. !else
  498.   !if $wims_showlivret!=no
  499.     !set livret_nbcomp=!recordcnt wimshome/log/classes/$wims_class/livret/.comps
  500.     !if $livret_nbcomp >0
  501.       !set wims_menu_items=!append line livret,1,module=adm/class/livret to $wims_menu_items
  502.     !endif
  503.   !endif
  504. !endif
  505. <br class="spacer" />
  506.  
  507. !reset tmp tmp_w tmp_s tmp_ss
  508.