Subversion Repositories wimsdev

Rev

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