Subversion Repositories wimsdev

Rev

Rev 2632 | Go to most recent revision | Blame | Last modification | View Log | RSS feed

  1. !!!###language independant
  2.  
  3. !read adm/title.phtml 1\
  4. $classname\
  5. $name_workdetail
  6.  
  7. <center><b>
  8. !if $wims_user=supervisor
  9.  !href cmd=reply&job=userprop&getuser=$getuser $name_student1
  10. !else
  11.  $name_student1
  12. !endif
  13. </b><br><font size="-1">$wims_name_Login: <tt>$getuser</tt>
  14. !if $user_email!=$empty
  15.  &nbsp;$wims_name_email: <a href="mailto:$user_email">$user_email</a>
  16. !endif
  17. </font>
  18. </center>
  19.   !if $user_photourl!=
  20.    <img src="$user_photourl" width=100 style="position:absolute;top:50px;right:5%;" alt="$name_student2">
  21.   !endif
  22. !if $eremain>0
  23.  <p>
  24.  $name_activesession:
  25.  !href cmd=reply&job=userexam&getuser=$getuser $esession
  26. !else
  27.  !if $wims_user=supervisor and $wims_supertype=4
  28.   !readproc adm/gateway/transfer $getuser test
  29.   !if $transfer_test>0
  30.    !href cmd=reply&job=transfer&getuser=$getuser $name_transfert
  31.   !endif
  32.  !endif
  33. !endif
  34.  <p>
  35.  
  36. !if $manual>0 and $gcnt>0 and $teacher!=$empty
  37.  $table_header
  38.  <caption><small>
  39.  $name_minmax:
  40.  $min_glob/$mean_glob/$max_glob</small></caption>
  41.  $table_hdtr<th>$wims_name_name<th>$(name_thsheet[6])<th>$(name_thsheet[7])</th>
  42.  $table_hdtr<td>$name_manualscore</td>
  43.      <td align="center">$manual%</td>
  44.      !read adm/class/colors $[ceil(10*$mav/$scoremax)]
  45.      <td style=$style_note>$mav</td>
  46.  $table_hdtr<td>$name_autoscore
  47.      <td align="center">$[100-$manual]%</td>
  48.      !read adm/class/colors $[ceil(10*$per/$scoremax)]
  49.      <td style=$style_note>$per</td>
  50.  $table_tr<td><b>$name_globalaverage</b> (/ $scoremax)</td>
  51.      <td align="center">100%</td>
  52.      !read adm/class/colors $[ceil(10*$globalav/$scoremax)]
  53.      <td style=$style_note>$globalav</td>
  54.  $table_end<p>
  55.  $table_header$table_hdtr<th colspan=3>$name_manualscore
  56.  !if $wims_user=supervisor
  57.   <br>
  58.   !href lang=$lang&module=adm/class/grades&method=user&un=$getuser $wims_name_change
  59.  !endif
  60.  </th>
  61.  $table_hdtr<th>$(name_thsheet[2])<th>$(name_thsheet[4])<th>$(name_thsheet[9])</th>
  62.  !set v_=0
  63.  !for i=1 to $gcnt
  64.   $table_tr<td>$(titles[2+$i])<td align="center">$(w$i)</td>
  65.   !read adm/class/colors $[10*ceil($(g_$i))/$scoremax]
  66.   <td style=$style_note>$(g_$i)</td>
  67.  !next i
  68.  $table_hdtr<td colspan=2>$name_Average</td>
  69.  !read adm/class/colors $[ceil(10*$mav/$scoremax)]
  70.  <td style=$style_note>$mav</td>
  71.  $table_end <p>
  72. !else
  73.  <center>
  74.  $name_globalaverage: <b>$per</b> / $scoremax.
  75.  !if $min_glob<$scoremax
  76.   <br><small>$name_minmax:
  77.   $min_glob/$mean_glob/$max_glob</small>
  78.  !endif
  79.  </center> <p>
  80. !endif
  81.  
  82.  
  83. !!readdef wimshome/log/classes/$wims_class/.def
  84. !!default class_topscores=0
  85. !if $class_topscores>0
  86.  <center>
  87.  $table_header$table_hdtr<th colspan=2>$name_topten</td></tr>
  88.  !for i=1 to $class_topscores
  89.   !set L=!line $i of   $TT
  90.   !if $class_anonymtopscores=yes
  91.    !set name=$i
  92.   !else
  93.    !set name=!item 1 of $L
  94.    !set firstname=!item 2 of $L
  95.    !set name=$name $firstname
  96.   !endif
  97.   !set avg=!item 4 of $L
  98. $table_tr<td align="right"><b><small>$name &nbsp;</small></b><td align="left"><small>&nbsp;$avg</small>
  99.  !next i
  100.  $table_end<p>
  101.  </center>
  102. !endif
  103.  
  104. !if $eactivecnt>0
  105.  $table_header$table_hdtr<th colspan=4>$name_examnote
  106.  !if $wims_user=supervisor or $class_examshow!=no
  107.   <small>
  108.   !href cmd=reply&job=examcheck&checkuser=$getuser [$wims_name_detail]
  109.   </small>
  110.  !endif
  111.  $table_hdtr<th>$(name_thsheet[1])<th>$(name_thsheet[2])<th>$(name_thsheet[9])/$scoremax
  112.  !for i in $activexams
  113.   !set l=!record $i of wimshome/log/classes/$wims_class/exams/.exams
  114.   !set t=!line 4 of $l
  115.  
  116.   $table_tr<td align="center">$i
  117.   <td align="center">$t
  118.   !if $[rint(10*$(es_$i)*$scoremax)/100]>0
  119.    !read adm/class/color $[ceil($(es_$i))]
  120.    <td style=$style_note>$[rint(10*$(es_$i)*$scoremax)/100]
  121.   !else
  122.    <td align="center">--
  123.   !endif
  124.  !next i
  125.  $table_end <p>
  126. !endif
  127.  
  128. !for i=1 to $activecnt
  129.  !set l_=!line $i of $activesheets
  130.  !distribute items $l_ into n_,e_
  131.  !set L_=!line $n_ of $defaultformula
  132.  !distribute word $L_ into A_,B_
  133.  !default A_=1
  134.  !default B_=2
  135.  !set t_=!item 3 to -1 of $l_
  136.  !set t_=!char 1 to $title_limit of $t_
  137.  !set v_=!getscorerequire sheet=$n_ user=$getuser
  138.  !set w_=!wordcnt $v_
  139.  !set S_=0
  140.  !for k=1 to $w_
  141.   !set a_=!word $k of $v_
  142.   !set S_=$[$S_+$a_]
  143.  !next k
  144.  !if $S_<=0
  145.   !goto next
  146.  !endif
  147.  !set seq_open=!defof sequence_open in wimshome/log/classes/$wims_class/seq/.def
  148.  !if $seq_open!=yes
  149.    !set hat=$name_Sheet $n_&nbsp;: $t_
  150.  !else
  151.   !set hat=$wims_name_sequence $(t_[1])&nbsp;: $(t_[2..-1])
  152.  !endif
  153.  $table_header$table_hdtr<th colspan=7>$hat
  154.  <small>$(name_thsheet[4]) $A_, $(name_thsheet[8]) $B_<br>
  155.  !set A_=!line $n_ of $percents
  156.  !distribute words $A_ into p1,p2
  157.  !if $p2!=$empty
  158.   !distribute item $[$p1/100],$[$p2/10] into x_,y_
  159.   !set p_=$[rint(100*$scoremax*$(f_$i))/100]
  160.   $name_done:$p1% , $(name_thsheet[7])  $p2/10, $name_equiv <b>$p_</b> / $scoremax.
  161.   !if $(min_$i)<$scoremax
  162.    <br>$name_minmax: $(min_$i)/$(mean_$i)/$(max_$i)
  163.   !endif
  164.  !endif
  165.  </small>
  166.  $table_hdtr<th>$(name_thsheet[1])<th>$(name_thsheet[2])</th><th>$(name_thsheet[3])</th><th>$(name_thsheet[4])
  167.      <th>$(name_thsheet[5])</th><th>$(name_thsheet[6])</th><th>$(name_thsheet[7])</th>
  168.  !for j=1 to $e_
  169.   !let d=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$n_
  170.   !distribute line $d into t,t,req_,weight_,title_,t
  171.   $table_tr<td align="center">$j</td>
  172.   <td>$(title_)</td>
  173.   <td align="center">$(req_)</td>
  174.   <td align="center">$(weight_)</td>
  175.   !set d_=!getscore user=$getuser sheet=$n_ work=$j
  176.   !default d_=0
  177.   !read adm/class/colors $[ceil(10*$d_/$(req_))]
  178.   !if $d_>0
  179.    <td style=$style_note>
  180.    $d_
  181.   !else
  182.    <td align="center">--
  183.   !endif
  184.   </td>
  185.   !if $(req_)>0
  186.    !read adm/class/colors $[ceil(10*$d_/$(req_))]
  187.    !if $d_>0
  188.     <td align="right" style=$style_note>
  189.     $[round(100*$d_/$(req_))]%
  190.    !else
  191.     <td align="center">--
  192.    !endif
  193.   !else
  194.    <td align="center">---
  195.   !endif
  196.   </td>
  197.   !set d_=!getscoremean user=$getuser sheet=$n_ work=$j
  198.   !default d_=0
  199.   !read adm/class/colors $[ceil($d_)]
  200.   !if $d_>0
  201.    <td style=$style_note>
  202.        $d_
  203.   !else
  204.    <td align="center">--
  205.   !endif
  206.    </td>
  207.  !next j
  208.  $table_end <p>
  209.  :next
  210. !next i
  211.  
  212. !if $exologs!=$empty
  213.  !set wims_menu_items=!append line reg_ex,1,module=adm/class/exolog&cmd=new&job=list&checkuser=$getuser\
  214.  to $wims_menu_items
  215. !endif
  216.  
  217. <p>
  218. !if $wims_user=supervisor
  219.  !set wims_menu_items=!append line rawdata,1,cmd=reply&job=getraw&getraw=$getuser\
  220.  delprep,1,cmd=reply&job=delprep&delprep=$getuser\
  221. passwd,1,module=adm/class/passwd&job=part&part=$getuser\
  222. part_list,1,cmd=resume\
  223. to $wims_menu_items
  224.  !if ($wims_supertype<3 and $wims_typename=class) or ($wims_supertype=4 and $wims_typename=course)
  225.   !set wims_menu_items=!append line livret,1,module=adm/class/livret&job=user&user=$getuser to $wims_menu_items
  226.  !endif
  227. !else
  228.   !set livret_nbcomp=!recordcnt wimshome/log/classes/$wims_class/livret/.comps
  229.  !if $livret_nbcomp >0
  230.   !set wims_menu_items=!append line livret,1,module=adm/class/livret to $wims_menu_items
  231.  !endif
  232. !endif
  233.  <p>
  234.  
  235.