Subversion Repositories wimsdev

Rev

Rev 11105 | Rev 12388 | 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.  
  4. !read adm/title.phtml 1\
  5. $classname\
  6. $name_workdetail $name_studentloc
  7.  
  8. <div class="center"><span class="wims_emph">
  9. !if $wims_user=supervisor
  10.   !reset css_connected
  11.   !if $getuser isitemof $wims_connectedlogin
  12.     !set css_connected=class="wims_connected"
  13.     !set wims_ref_title=connected
  14.   !endif
  15.   <span $css_connected>
  16.  !href module=adm/class/usermanage/&job=userprop&getuser=$getuser $name_studentloc
  17.   </span>
  18. !endif
  19. </span><br /><span class="small">$wims_name_Login: <span class="tt">$getuser</span>
  20. !if $user_external_auth!=$empty
  21. (<span class="tt">$user_external_auth</span>)
  22. !endif
  23. !if $user_email!=$empty
  24. <br />
  25. $wims_name_email: <a href="mailto:$user_email">$user_email</a>
  26. !endif
  27. </span>
  28. </div>
  29.   !if $user_photourl!=
  30.    <img src="$user_photourl" width="100px" style="position:absolute;top:50px;right:5%;" alt="$name_student2" />
  31.   !endif
  32. !if $eremain>0
  33.  <br class="spacer" />
  34.  $name_activesession:
  35.  !href cmd=reply&job=userexam&getuser=$getuser $esession
  36. !!!else
  37. !! ----- 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)
  38. !! !if $wims_user=supervisor and $wims_supertype iswordof 2 4
  39. !!  !readproc adm/gateway/transfer $getuser test
  40. !!  !if $transfer_test>0
  41. !!   !href module=adm/class/usermanage&job=transfer&getuser=$getuser $name_transfer
  42. !!  !endif
  43. !! !endif
  44. !endif
  45.  
  46.  <br class="spacer" />
  47.  
  48. !if $manual>0 and $gcnt>0 and $teacher!=$empty
  49.  $table_header
  50.  <caption><span class="small">
  51.  $name_minmax:
  52.  $min_glob/$mean_glob/$max_glob</span></caption>
  53.  $table_hdtr<th>$wims_name_name</th><th>$(wims_name_thsheet[6])</th><th>$(wims_name_thsheet[9])</th></tr>
  54.  $table_tr<th>$name_manualscore</th>
  55.      <td>$manual%</td>
  56.      !read adm/class/colors $[ceil(10*$mav/$scoremax)]
  57.      <td style=$style_note>$mav</td></tr>
  58.  $table_tr<th>$name_autoscore</th>
  59.      <td>$[100-$manual]%</td>
  60.      !read adm/class/colors $[ceil(10*$per/$scoremax)]
  61.      <td style=$style_note>$per</td></tr>
  62.  $table_tr<th>$name_globalaverage / $scoremax</th>
  63.      <td>100%</td>
  64.      !read adm/class/colors $[ceil(10*$globalav/$scoremax)]
  65.      <td style=$style_note>$globalav</td></tr>
  66.  $table_end
  67.  $table_header
  68.  $table_hdtr<th colspan="3">$name_manualscore
  69.  !if $wims_user=supervisor
  70.   <br />
  71.   !href lang=$lang&module=adm/class/grades&method=user&un=$getuser $wims_name_change
  72.  !endif
  73.  </th></tr>
  74.  $table_hdtr<th>$(wims_name_thsheet[2])</th><th>$(wims_name_thsheet[4])</th><th>$(wims_name_thsheet[9])</th></tr>
  75.  !set v_=0
  76.  !for i=1 to $gcnt
  77.   $table_tr<td>$(titles[2+$i])</td><td>$(w$i)</td>
  78.   !read adm/class/colors $[10*ceil($(g_$i))/$scoremax]
  79.   <td style=$style_note>$(g_$i)</td></tr>
  80.  !next i
  81.  $table_hdtr<th colspan="2">$name_Average</th>
  82.  !read adm/class/colors $[ceil(10*$mav/$scoremax)]
  83.  <td style=$style_note>$mav</td></tr>
  84.  $table_end
  85. !else
  86.  <div class="wimscenter">
  87.  $name_globalaverage: <b>$per</b> / $scoremax.
  88.  !if $min_glob<$scoremax
  89.   <br /><span class="small">$name_minmax:
  90.   $min_glob/$mean_glob/$max_glob</span>
  91.  !endif
  92.  </div>
  93. !endif
  94.  
  95.  
  96. !!readdef wimshome/log/classes/$wims_class/.def
  97. !!default class_topscores=0
  98. !if $class_topscores>0
  99.  
  100.  $table_header$table_hdtr<th colspan="2">$name_topten</td></tr>
  101.  !for i=1 to $class_topscores
  102.   !set L=!line $i of $TT
  103.   !if $class_anonymtopscores=yes
  104.    !set name=$i
  105.   !else
  106.    !set name=!item 1 of $L
  107.    !set firstname=!item 2 of $L
  108.    !set name=$name $firstname
  109.   !endif
  110.   !set avg=!item 4 of $L
  111. $table_tr<td class="small" style="text-align:right;font-weight:bold">
  112.   $name &nbsp;</td>
  113. <td style="text-align:left" class="small">&nbsp;$avg</td></tr>
  114.  !next i
  115.  $table_end
  116.  
  117. !endif
  118.  
  119. !if $eactivecnt>0
  120.  $table_header$table_hdtr<th colspan="4">$name_examnote
  121.  !if $wims_user=supervisor or $class_examshow!=no
  122.   <span class="small">
  123.   !href cmd=reply&job=examcheck&checkuser=$getuser [$wims_name_detail]
  124.   </span>
  125.  !endif
  126.  </th></tr>
  127.  $table_hdtr
  128.   <th>$(wims_name_thsheet[1])</th>
  129.   <th>$(wims_name_thsheet[2])</th>
  130.   <th>$(wims_name_thsheet[9])/$scoremax</th>
  131.  </tr>
  132.  !for i in $activexams
  133.   !set l=!record $i of wimshome/log/classes/$wims_class/exams/.exams
  134.   !set t=!line 4 of $l
  135.  
  136.   $table_tr<td>$i</td>
  137.   <td>$t</td>
  138.   !if $[rint(10*$(es_$i)*$scoremax)/100]>0
  139.    !read adm/class/colors $[ceil($(es_$i))]
  140.    <td style=$style_note>$[rint(10*$(es_$i)*$scoremax)/100]</td>
  141.   !else
  142.    <td>--</td>
  143.   !endif
  144.   </tr>
  145.  !next i
  146.  $table_end
  147. !endif
  148. !for i=1 to $activecnt
  149.  !set l_=!line $i of $activesheets
  150.  !distribute items $l_ into n_,e_
  151.  !set L_=!line $n_ of $defaultformula
  152.  !reset A_ B_ C_
  153.  !distribute word $L_ into A_,B_,C_
  154.  !default A_=1
  155.  !default B_=2
  156.  !default C_=0
  157.  !set t_=!item 3 to -1 of $l_
  158.  !set t_=!char 1 to $title_limit of $t_
  159.  !set v_=!getscorerequire sheet=$n_ user=$getuser
  160.  !set w_=!wordcnt $v_
  161.  !set S_=0
  162.  !for k=1 to $w_
  163.   !set a_=!word $k of $v_
  164.   !set S_=$[$S_+$a_]
  165.  !next k
  166.  !set sw=!line $[$n_+1] of $shweights
  167.  !set q=!word 2 of $sw
  168.  !set sw=!word 3 of $sw
  169.  !bound sw between integer 0 and 2 default $tmp_ss
  170.  !bound q between integer 0 and 6 default $tmp_s
  171.  !if $S_<=0
  172.   !goto next
  173.  !endif
  174.  !set seq_open=!defof sequence_open in wimshome/log/classes/$wims_class/seq/.def
  175.  !if $seq_open!=yes
  176.    !set hat=$name_Sheet $n_&nbsp;: $t_
  177.  !else
  178.   !set hat=$wims_name_sequence $(t_[1])&nbsp;: $(t_[2..-1])
  179.  !endif
  180.  <a id="sheet$n_"></a>
  181.  <br class="spacer" />
  182.   !if $wims_user=supervisor
  183.     !set nb_indic=5
  184.   !else
  185.     !set nb_indic=3
  186.     !endif
  187.   !endif
  188.  
  189.   !endif
  190.   !set P_=!line $n_ of $percents
  191.  !distribute words $P_ into p1,p2,p3,p4
  192.   !if $p2!=$empty
  193.    !distribute item $[$p1/100],$[$p2/10],$[$p3/100],$[$p4/100] into x0_,y_,x1_,x2_
  194.    !set ff_$n_=!mathsubst Q=$y_ in $(f_$n_)
  195.    !for sev=0 to 2
  196.      !set ff_$n_=!mathsubst I$sev=$(x$(sev)_) in $(ff_$n_)
  197.    !next
  198.    !set p_=$[rint(100*$scoremax*$(ff_$n_))/100]
  199.   !endif
  200.  $table_header$table_hdtr<th colspan="$[$nb_indic+5]" style="text-align:left">
  201.  !if $p2!=$empty
  202.    !href module=adm/sheet&sh=$n_ $hat
  203.    <br />
  204.    $(wims_name_thsheet[4]): $A_
  205.    <br />
  206.    !set wims_ref_class=wims_button_help
  207.    !href cmd=help&special_parm=$n_ $(wims_name_thsheet[8])
  208.    !!!lowercase $(f_$n_)
  209. !!global note
  210.   !if $(min_$n_)<$scoremax
  211.     <br />$name_minmax: $(min_$n_)/$(mean_$n_)/$(max_$n_)
  212.    !endif
  213. !!
  214.    <div class="float_right">
  215. !!!FIXME should put a list ?
  216.     $(wims_name_thsheet[9]): $p_ / $scoremax.
  217.      <br />
  218.     !if $wims_user=supervisor or $q!=1
  219.       $(wims_name_thsheet[7]): $p2/10
  220.       <br />
  221.     !endif
  222.     !if $wims_user=supervisor or $sw=0
  223.    !! $(wims_name_thsheet[5])
  224.      $(wims_name_thsheet[5]): $p1%
  225.      <br />
  226.     !endif
  227.     !if $wims_user=supervisor or $sw=1
  228.    !! $(wims_name_thsheet[10])
  229.      $(wims_name_thsheet[10]): $p3%
  230.      <br />
  231.     !endif
  232.     !if $wims_user=supervisor or $sw=2
  233.    !! $(wims_name_thsheet[13])
  234.     $(wims_name_thsheet[13]): $[$p4/10]/10
  235.     !endif
  236.  !else
  237.   !href module=adm/sheet&sh=$n_ $hat
  238.  !endif
  239.   </div>
  240.  </th></tr>
  241.  $table_hdtr
  242.      <th>$(wims_name_thsheet[1])</th><th>$(wims_name_thsheet[2])</th>
  243.      <th>$(wims_name_thsheet[3])</th><th>$(wims_name_thsheet[4])</th>
  244. !!qualite
  245.       <th>$(wims_name_thsheet[7])</th>
  246.     !if $wims_user=supervisor or $sw=0
  247. !!I0: percentage work (related to cumul)
  248.     <th>$(wims_name_thsheet[5])</th>
  249.     !endif
  250.     !if $wims_user=supervisor or $sw=1
  251. !!I1: best percentage
  252.      <th>$(wims_name_thsheet[10])</th>
  253.     !endif
  254.     !if $wims_user=supervisor or $sw=2
  255. !!I2: level
  256.      <th>$(wims_name_thsheet[13])</th>
  257.     !endif
  258. !!last
  259.      <th>$(wims_name_thsheet[12])</th>
  260. !!number try
  261.      <th>$(wims_name_thsheet[11])</th></tr>
  262.  !for j=1 to $e_
  263.   !let d=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$n_
  264.   !distribute line $d into t,t,req_,weight_,title_,t
  265.   $table_tr<td>$j</td>
  266.   <td>$(title_)</td>
  267.   <td>$(req_)</td>
  268.   <td>$(weight_)</td>
  269.   !set try=!getscoretry user=$getuser sheet=$n_ work=$j
  270.   !if $try<=0
  271.    !set makelist=!makelist <td>--</td> for j=1 to $nb_indic
  272.    !replace , by in $makelist
  273.   !else
  274. !!!quality in exercise will always appear.
  275.     !set d_=!getscorequality user=$getuser sheet=$n_ work=$j
  276.     !default d_=0
  277.     !read adm/class/colors $[ceil($d_)]
  278.      <td style=$style_note>$d_</td>
  279.    !!endif
  280. !!cumul
  281.     !if $wims_user=supervisor or $sw=0
  282.      !set d_=!getscore user=$getuser sheet=$n_ work=$j
  283.      !default d_=0
  284. !!percentage
  285.     !if $(req_)>0
  286.      !read adm/class/colors $[ceil(10*$d_/$(req_))]
  287.      <td style=$style_note>$[ceil(100*$d_/$(req_))]%</td>
  288.     !else
  289.      <td>--</td>
  290.     !endif
  291.    !endif
  292.    !if $wims_user=supervisor or $sw=1
  293. !!best percentage
  294.    !set best=!getscorebest user=$getuser sheet=$n_ work=$j
  295.    !read adm/class/colors $[ceil(10*$best/$req_)]
  296.    <td style=$style_note>$[ceil($[$best*100/$req_])]%</td>
  297.    !endif
  298.    !if $wims_user=supervisor or $sw=2
  299. !!level
  300.     !set level=!getscorelevel user=$getuser sheet=$n_ work=$j
  301.     !read adm/class/colors $[min(ceil($level+0.1),10)]
  302.     <td style=$style_note>$level</td>
  303.    !endif
  304. !!last
  305.    !set last=!getscorelast user=$getuser sheet=$n_ work=$j
  306.    !read adm/class/colors $[ceil($last)]
  307.    <td style=$style_note>$last</td>
  308.  
  309. !endif try
  310. !!try
  311.    <td>
  312.     $try
  313.    </td>
  314.   </tr>
  315.  !next j
  316.  $table_end
  317. :next
  318. !next i
  319. !read wimshome/public_html/themes/_widgets/topback.phtml
  320.  
  321. !if $exologs!=$empty
  322.  !set wims_menu_items=!append line itemsep,0,\
  323.  reg_ex,1,module=adm/class/exolog&cmd=new&job=list&checkuser=$getuser\
  324.  to $wims_menu_items
  325. !endif
  326. !set wims_menu_items=!append line rawdata,1,cmd=reply&job=getraw&getraw=$getuser\
  327. to $wims_menu_items
  328.  
  329. !if $wims_user=supervisor
  330.  !set wims_menu_items=!append line \
  331.  account,1,module=adm/class/usermanage&job=userprop&getuser=$getuser\
  332. to $wims_menu_items
  333.  !if (($wims_supertype<3 and $wims_typename=class) or ($wims_supertype=4 and $wims_typename=course)) and $wims_showlivret!=no
  334.   !set wims_menu_items=!append line livret1,1,module=adm/class/livret&job=user&user=$getuser\
  335.  to $wims_menu_items
  336.   !set wims_menu_items=!append line activity1,1,module=adm/class/activity&job=exobyday&user=$getuser\
  337.  to $wims_menu_items
  338.  !endif
  339.   !set wims_menu_items=!append line itemsep,0, \
  340.   part_list,1,cmd=resume\
  341.  to $wims_menu_items
  342.   !read adm/class/getnextuser $wims_class,$getuser,getuser,getuser
  343. !else
  344.  !if $wims_showlivret!=no
  345.   !set livret_nbcomp=!recordcnt wimshome/log/classes/$wims_class/livret/.comps
  346.   !if $livret_nbcomp >0
  347.    !set wims_menu_items=!append line livret,1,module=adm/class/livret to $wims_menu_items
  348.   !endif
  349.  !endif
  350. !endif
  351.  <br class="spacer" />
  352.  
  353.  !reset tmp tmp_w tmp_s tmp_ss
  354.