Subversion Repositories wimsdev

Rev

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

  1. !!!###language independant
  2.  
  3. !read adm/title.phtml 1\
  4. $classname\
  5. $name_workdetail
  6.  
  7. <div class="wimscenter"><span class="wimsemph">
  8. !if $wims_user=supervisor
  9.  !href module=adm/class/usermanage/&job=userprop&getuser=$getuser $name_studentloc
  10.  !if $getuser isitemof $wims_connectedlogin
  11.   <img src="gifs/themes/$wims_theme_icon/connected.png" style="text-width:15px;" alt="connected" />
  12.  !endif
  13. !else
  14.  $name_studentloc
  15. !endif
  16. </span><br /><span class="small">$wims_name_Login: <span class="tt">$getuser</span>
  17. !if $user_external_auth!=$empty
  18. (<span class="tt">$user_external_auth</span>)
  19. !endif
  20. !if $user_email!=$empty
  21. <br />
  22. $wims_name_email: <a href="mailto:$user_email">$user_email</a>
  23. !endif
  24. </span>
  25. </div>
  26.   !if $user_photourl!=
  27.    <img src="$user_photourl" width="100px" style="position:absolute;top:50px;right:5%;" alt="$name_student2" />
  28.   !endif
  29. !if $eremain>0
  30.  <br class="spacer" />
  31.  $name_activesession:
  32.  !href cmd=reply&job=userexam&getuser=$getuser $esession
  33. !else
  34. !! ----- transférer dans usermanage (il s'agit d'un lien de transfert de score pour déplacer des élèves d'une classe à l'autre (dans un portail ou un groupement)
  35. !! !if $wims_user=supervisor and $wims_supertype iswordof 2 4
  36. !!  !readproc adm/gateway/transfer $getuser test
  37. !!  !if $transfer_test>0
  38. !!   !href module=adm/class/usermanage&job=transfer&getuser=$getuser $name_transfer
  39. !!  !endif
  40. !! !endif
  41. !endif
  42.  
  43.  <br class="spacer" />
  44.  
  45. !if $manual>0 and $gcnt>0 and $teacher!=$empty
  46.  $table_header
  47.  <caption><span class="small">
  48.  $name_minmax:
  49.  $min_glob/$mean_glob/$max_glob</span></caption>
  50.  $table_hdtr<th>$wims_name_name</th><th>$(wims_name_thsheet[6])</th><th>$(wims_name_thsheet[9])</th></tr>
  51.  $table_tr<th>$name_manualscore</th>
  52.      <td>$manual%</td>
  53.      !read adm/class/colors $[ceil(10*$mav/$scoremax)]
  54.      <td style=$style_note>$mav</td></tr>
  55.  $table_tr<th>$name_autoscore</th>
  56.      <td>$[100-$manual]%</td>
  57.      !read adm/class/colors $[ceil(10*$per/$scoremax)]
  58.      <td style=$style_note>$per</td></tr>
  59.  $table_tr<th>$name_globalaverage / $scoremax</th>
  60.      <td>100%</td>
  61.      !read adm/class/colors $[ceil(10*$globalav/$scoremax)]
  62.      <td style=$style_note>$globalav</td></tr>
  63.  $table_end
  64.  $table_header
  65.  $table_hdtr<th colspan="3">$name_manualscore
  66.  !if $wims_user=supervisor
  67.   <br />
  68.   !href lang=$lang&module=adm/class/grades&method=user&un=$getuser $wims_name_change
  69.  !endif
  70.  </th></tr>
  71.  $table_hdtr<th>$(wims_name_thsheet[2])</th><th>$(wims_name_thsheet[4])</th><th>$(wims_name_thsheet[9])</th></tr>
  72.  !set v_=0
  73.  !for i=1 to $gcnt
  74.   $table_tr<td>$(titles[2+$i])</td><td>$(w$i)</td>
  75.   !read adm/class/colors $[10*ceil($(g_$i))/$scoremax]
  76.   <td style=$style_note>$(g_$i)</td></tr>
  77.  !next i
  78.  $table_hdtr<th colspan="2">$name_Average</th>
  79.  !read adm/class/colors $[ceil(10*$mav/$scoremax)]
  80.  <td style=$style_note>$mav</td></tr>
  81.  $table_end
  82. !else
  83.  <div class="wimscenter">
  84.  $name_globalaverage: <b>$per</b> / $scoremax.
  85.  !if $min_glob<$scoremax
  86.   <br /><span class="small">$name_minmax:
  87.   $min_glob/$mean_glob/$max_glob</span>
  88.  !endif
  89.  </div>
  90. !endif
  91.  
  92.  
  93. !!readdef wimshome/log/classes/$wims_class/.def
  94. !!default class_topscores=0
  95. !if $class_topscores>0
  96.  
  97.  $table_header$table_hdtr<th colspan="2">$name_topten</td></tr>
  98.  !for i=1 to $class_topscores
  99.   !set L=!line $i of $TT
  100.   !if $class_anonymtopscores=yes
  101.    !set name=$i
  102.   !else
  103.    !set name=!item 1 of $L
  104.    !set firstname=!item 2 of $L
  105.    !set name=$name $firstname
  106.   !endif
  107.   !set avg=!item 4 of $L
  108. $table_tr<td class="small" style="text-align:right;font-weight:bold">
  109.   $name &nbsp;</td>
  110. <td style="text-align:left" class="small">&nbsp;$avg</td></tr>
  111.  !next i
  112.  $table_end
  113.  
  114. !endif
  115.  
  116. !if $eactivecnt>0
  117.  $table_header$table_hdtr<th colspan="4">$name_examnote
  118.  !if $wims_user=supervisor or $class_examshow!=no
  119.   <span class="small">
  120.   !href cmd=reply&job=examcheck&checkuser=$getuser [$wims_name_detail]
  121.   </span>
  122.  !endif
  123.  </th></tr>
  124.  $table_hdtr
  125.   <th>$(wims_name_thsheet[1])</th>
  126.   <th>$(wims_name_thsheet[2])</th>
  127.   <th>$(wims_name_thsheet[9])/$scoremax</th>
  128.  </tr>
  129.  !for i in $activexams
  130.   !set l=!record $i of wimshome/log/classes/$wims_class/exams/.exams
  131.   !set t=!line 4 of $l
  132.  
  133.   $table_tr<td>$i</td>
  134.   <td>$t</td>
  135.   !if $[rint(10*$(es_$i)*$scoremax)/100]>0
  136.    !read adm/class/color $[ceil($(es_$i))]
  137.    <td style=$style_note>$[rint(10*$(es_$i)*$scoremax)/100]</td>
  138.   !else
  139.    <td>--</td>
  140.   !endif
  141.   </tr>
  142.  !next i
  143.  $table_end
  144. !endif
  145. !for i=1 to $activecnt
  146.  !set l_=!line $i of $activesheets
  147.  !distribute items $l_ into n_,e_
  148.  !set L_=!line $n_ of $defaultformula
  149.  !reset A_ B_ C_
  150.  !distribute word $L_ into A_,B_,C_
  151.  !default A_=1
  152.  !default B_=2
  153.  !default C_=0
  154.  !set t_=!item 3 to -1 of $l_
  155.  !set t_=!char 1 to $title_limit of $t_
  156.  !set v_=!getscorerequire sheet=$n_ user=$getuser
  157.  !set w_=!wordcnt $v_
  158.  !set S_=0
  159.  !for k=1 to $w_
  160.   !set a_=!word $k of $v_
  161.   !set S_=$[$S_+$a_]
  162.  !next k
  163.  !set sw=!line $[$n_+1] of $shweights
  164.  !set q=!word 2 of $sw
  165.  !set sw=!word 3 of $sw
  166.  !default sw=0
  167.  !default q=2
  168.  !if $S_<=0
  169.   !goto next
  170.  !endif
  171.  !set seq_open=!defof sequence_open in wimshome/log/classes/$wims_class/seq/.def
  172.  !if $seq_open!=yes
  173.    !set hat=$name_Sheet $n_&nbsp;: $t_
  174.  !else
  175.   !set hat=$wims_name_sequence $(t_[1])&nbsp;: $(t_[2..-1])
  176.  !endif
  177.  <a id="sheet$n_"></a>
  178.  <br class="spacer" />
  179.   !if $wims_user=supervisor
  180.     !set nb_indic=5
  181.   !else
  182.     !if $q!=1
  183.       !set nb_indic=3
  184.     !else
  185.       !set nb_indic=2
  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_=$[ceil(10*$scoremax*$(ff_$n_))/10]
  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.  </th></tr>
  240.  $table_hdtr
  241.      <th>$(wims_name_thsheet[1])</th><th>$(wims_name_thsheet[2])</th>
  242.      <th>$(wims_name_thsheet[3])</th><th>$(wims_name_thsheet[4])</th>
  243.      !if $wims_user=supervisor or $q!=1
  244. !!qualite
  245.       <th>$(wims_name_thsheet[7])</th>
  246.      !endif
  247.     !if $wims_user=supervisor or $sw=0
  248. !!I0: percentage work (related to cumul)
  249.     <th>$(wims_name_thsheet[5])</th>
  250.     !endif
  251.     !if $wims_user=supervisor or $sw=1
  252. !!I1: best percentage
  253.      <th>$(wims_name_thsheet[10])</th>
  254.     !endif
  255.     !if $wims_user=supervisor or $sw=2
  256. !!I2: level
  257.      <th>$(wims_name_thsheet[13])</th>
  258.     !endif
  259. !!last
  260.      <th>$(wims_name_thsheet[12])</th>
  261. !!number try
  262.      <th>$(wims_name_thsheet[11])</th></tr>
  263.  !for j=1 to $e_
  264.   !let d=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$n_
  265.   !distribute line $d into t,t,req_,weight_,title_,t
  266.   $table_tr<td>$j</td>
  267.   <td>$(title_)</td>
  268.   <td>$(req_)</td>
  269.   <td>$(weight_)</td>
  270.   !set try=!getscoretry user=$getuser sheet=$n_ work=$j
  271.   !if $try<=0
  272.    !set makelist=!makelist <td>--</td> for j=1 to $nb_indic
  273.    !replace , by in $makelist
  274.   !else
  275.    !if $wims_user=supervisor or $q!=1
  276.   !!quality
  277.     !set d_=!getscorequality user=$getuser sheet=$n_ work=$j
  278.     !default d_=0
  279.     !read adm/class/colors $[ceil($d_)]
  280.      <td style=$style_note>$d_</td>
  281.    !endif
  282. !!cumul
  283.     !if $wims_user=supervisor or $sw=0
  284.      !set d_=!getscore user=$getuser sheet=$n_ work=$j
  285.      !default d_=0
  286. !!   !read adm/class/colors $[ceil(10*$d_/$(req_))]
  287. !!   <td style=$style_note>$d_</td>
  288. !!percentage
  289.     !if $(req_)>0
  290.      !read adm/class/colors $[ceil(10*$d_/$(req_))]
  291.      <td style=$style_note>$[round(100*$d_/$(req_))]%</td>
  292.     !else
  293.      <td>--</td>
  294.     !endif
  295.    !endif
  296.    !if $wims_user=supervisor or $sw=1
  297. !!best percentage
  298.    !set best=!getscorebest user=$getuser sheet=$n_ work=$j
  299.    !read adm/class/colors $[ceil(10*$best/$req_)]
  300.    <td style=$style_note>$[round($[$best*100/$req_])]%</td>
  301.    !endif
  302.    !if $wims_user=supervisor or $sw=2
  303. !!level
  304.     !set level=!getscorelevel user=$getuser sheet=$n_ work=$j
  305.     !read adm/class/colors $[min(ceil($level+0.1),10)]
  306.     <td style=$style_note>$level</td>
  307.    !endif
  308. !!last
  309.    !set last=!getscorelast user=$getuser sheet=$n_ work=$j
  310.    !read adm/class/colors $[ceil($last)]
  311.    <td style=$style_note>$last
  312.    </td>
  313.  
  314. !endif try
  315. !!try
  316.    <td>
  317.     $try
  318.    </td>
  319.   </tr>
  320.  !next j
  321.  $table_end
  322. :next
  323. !next i
  324.  
  325. !if $exologs!=$empty
  326.  !set wims_menu_items=!append line reg_ex,1,module=adm/class/exolog&cmd=new&job=list&checkuser=$getuser\
  327.  to $wims_menu_items
  328. !endif
  329. !set wims_menu_items=!append line rawdata,1,cmd=reply&job=getraw&getraw=$getuser\
  330.  ,0,\
  331. to $wims_menu_items
  332.  
  333. !if $wims_user=supervisor
  334.  !set wims_menu_items=!append line \
  335.  account,1,module=adm/class/usermanage&job=userprop&getuser=$getuser\
  336. to $wims_menu_items
  337.  !if (($wims_supertype<3 and $wims_typename=class) or ($wims_supertype=4 and $wims_typename=course)) and $wims_showlivret!=no
  338.   !set wims_menu_items=!append line livret1,1,module=adm/class/livret&job=user&user=$getuser\
  339.  to $wims_menu_items
  340.   !set wims_menu_items=!append line activity1,1,module=adm/class/activity&job=exobyday&user=$getuser\
  341.  to $wims_menu_items
  342.  !endif
  343.   !set wims_menu_items=!append line ,0, \
  344.   part_list,1,cmd=resume\
  345.  to $wims_menu_items
  346.   !read adm/class/getnextuser $wims_class,$getuser,getuser,getuser
  347. !else
  348.  !if $wims_showlivret!=no
  349.   !set livret_nbcomp=!recordcnt wimshome/log/classes/$wims_class/livret/.comps
  350.   !if $livret_nbcomp >0
  351.    !set wims_menu_items=!append line livret,1,module=adm/class/livret to $wims_menu_items
  352.   !endif
  353.  !endif
  354. !endif
  355.  <br class="spacer" />
  356.