Subversion Repositories wimsdev

!set tmp=!defof DF_SEVERITY in wimshome/public_html/bases/sys/define.conf

!distribute words $tmp into tmp_w,tmp_s,tmp_ss

!read adm/title.phtml 1\

$classname\

$name_workdetail $name_studentloc

 

<div class="center"><span class="wims_emph">

  !if $wims_user=supervisor

    !reset css_connected

    !if $getuser isitemof $wims_connectedlogin

      !set css_connected=class="wims_connected"

      !set wims_ref_title=connected

    !endif

    <span $css_connected>

      !href module=adm/class/usermanage/&job=userprop&getuser=$getuser $name_studentloc

    </span>

  !endif

  </span><br><span class="small">$wims_name_Login: <span class="tt">$getuser</span>

  !if $user_external_auth!=$empty

    (<span class="tt">$user_external_auth</span>)

  !endif

  !if $user_email!=$empty

    <br>

    $wims_name_email: <a href="mailto:$user_email">$user_email</a>

  !endif

</span></div>

 

!let testphoto=!filexists wimshome/sessions/$wims_session/getfile/photoboard/$getuser

!if $testphoto=yes

  <div id="userlogo" class="float_right">

    <img src="$wims_ref_name?session=$wims_session&cmd=getfile&special_parm=photoboard/$getuser" style="position:absolute;top:50px;right:5%;" alt="$name_student2">

  </div>

  !reset testphoto

  !if $user_photourl!=

    <img src="$user_photourl" style="width:100px;position:absolute;top:50px;right:5%;" alt="$name_student2">

  !endif

!if $eremain>0

  <br class="spacer">

  $name_activesession:

  !href cmd=reply&job=userexam&getuser=$getuser $esession

  !!!else

  !! ----- 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)

  !! !if $wims_user=supervisor and $wims_supertype iswordof 2 4

  !!  !readproc adm/gateway/transfer $getuser test

  !!  !if $transfer_test>0

  !!   !href module=adm/class/usermanage&job=transfer&getuser=$getuser $name_transfer

  !!  !endif

  !! !endif

 

<br class="spacer">

 

!if $manual>0 and $gcnt>0 and $teacher!=$empty

  !if $class_hideaverage!=yes

    $table_header

    <caption><span class="small">

    $name_minmax:

    $min_glob/$mean_glob/$max_glob</span></caption>

    <thead>

    $table_hdtr<th>$wims_name_name</th><th>$(wims_name_thsheet[6])</th><th>$(wims_name_thsheet[9])</th></tr>

    </thead><tbody>

    $table_tr<th>$name_manualscore</th>

       <td>$manual%</td>

       !read adm/class/colors $[ceil(10*$mav/$scoremax)]

       <td style=$style_note>$mav</td></tr>

    $table_tr<th>$name_autoscore</th>

       <td>$[100-$manual]%</td>

       !read adm/class/colors $[ceil(10*$per/$scoremax)]

       <td style=$style_note>$per</td></tr>

    $table_tr<th>$name_globalaverage / $scoremax</th>

       <td>100%</td>

       !read adm/class/colors $[ceil(10*$globalav/$scoremax)]

       <td style=$style_note>$globalav</td></tr>

    </tbody>

    $table_end

  !endif

 

  !set table_id=TABLE_manual

  !set table_class=sortable

  $table_header

  <thead>

    <tr><th colspan="3">$name_manualscore

    !if $wims_user=supervisor

      <br>

      !href lang=$lang&module=adm/class/grades&method=user&un=$getuser $wims_name_change

    !endif

    </th></tr>

    $table_hdtr<th>$(wims_name_thsheet[2])</th><th>$(wims_name_thsheet[4])</th><th>$(wims_name_thsheet[9])</th></tr>

  </thead>

  !set v_=0

  <tbody>

  !for i=1 to $gcnt

    $table_tr<td>$(titles[2+$i])</td><td>$(w$i)</td>

    !read adm/class/colors $[10*ceil($(g_$i))/$scoremax]

    <td style=$style_note>$(g_$i)</td></tr>

  !next i

  </tbody>

  <tfoot>

    $table_hdtr<th colspan="2">$name_Average</th>

    !read adm/class/colors $[ceil(10*$mav/$scoremax)]

    <td style=$style_note>$mav</td></tr>

  </tfood>

  $table_end

  !read tablesort.phtml

  !if $class_hideaverage!=yes

    <div class="wimscenter">

    $name_globalaverage: <b>$per</b> / $scoremax.

    !if $min_glob<$scoremax

      <br><span class="small">$name_minmax:

      $min_glob/$mean_glob/$max_glob</span>

    !endif

    </div>

  !endif

 

!!readdef wimshome/log/classes/$wims_class/.def

!!default class_topscores=0

!if $class_topscores>0 and $class_hideaverage!=yes

 

  $table_header$table_hdtr<th colspan="2">$name_topten</td></tr>

  !for i=1 to $class_topscores

    !set L=!line $i of $TT

    !if $class_anonymtopscores=yes

      !set name=$i

    !else

      !set name=!item 1 of $L

      !set firstname=!item 2 of $L

      !set name=$name $firstname

    !endif

    !set avg=!item 4 of $L

    $table_tr

      <td class="small" style="text-align:right;font-weight:bold">

      $name &nbsp;</td>

      <td style="text-align:left" class="small">&nbsp;$avg</td>

    </tr>

  !next i

  $table_end

 

 

!! ---------------- display table for each exam session

!if $eactivecnt>0

  !set table_id=TABLE_exam

  !set table_class=sortable

  $table_header

  <thead>

  <caption>$name_examnote</caption>

  $table_hdtr

    <th scope="col">$(wims_name_thsheet[1])</th>

    <th scope="col">$(wims_name_thsheet[2])</th>

    <th scope="col">$(wims_name_thsheet[9])/$scoremax</th>

  </tr>

  </thead>

  <tbody>

  !for i in $activexams

    !set l=!record $i of wimshome/log/classes/$wims_class/exams/.exams

    !set t=!line 4 of $l

    !set st=!line 1 of $l

    !set ew=!line $i of $examweights

    !! ------test if sheet is hidden for this user

    !reset hidden_sheet

    !if $wims_user!=supervisor

      !set h_=!line 8 of $l

      !if $h_!=$empty

        !readproc adm/vfilter/ishiddensheet.proc $h_

      !endif

    !endif

    !! -----end test

    !if ($st<=2 or $ew>0) and $hidden_sheet!=1

     $table_tr

      <td>$i</td>

      <td>$t</td>

      !if $[rint(10*$(es_$i)*$scoremax)/100]>0

        !read adm/class/colors $[ceil($(es_$i))]

        <td style=$style_note>$[rint(10*$(es_$i)*$scoremax)/100]</td>

      !else

        <td>--</td>

      !endif

     </tr>

    !endif

  !next i

  </tbody>

  $table_end

  !read tablesort.phtml

 

!! ------------------ display table for freeworks

!if $allowed_freework=yes

 

  !! In the student score page we list only freeworks for which the

  !! student has been doing some work (for some types this can simply

  !! mean opening the freework). Visibility (of student work and of

  !! score) is set according to freework status.

  !!

  !! If scoring is available it is advisable to disable manual scoring

  !! interface, otherwise students can see scores befeore due date.

  !!

  !if $nbfreeworks > 0

    !set table_id=TABLE_freew

    !set table_class=sortable

    !set name_fwcols=$(wims_name_thsheet[1]),$(wims_name_thsheet[2]),$name_handedin,$name_deadline,$(wims_name_thsheet[9])

    !if $wims_user=supervisor

      !set name_fwcols=$name_fwcols,$name_codownload,$name_fwscoring,$name_putiworkco

    !endif

    $table_header

    <thead>

    <caption>$wims_name_Freeworks</caption>

    $table_hdtr

    !for l_ in $name_fwcols

      <th scope="col">$l_</th>

    !next

    </tr>

    </thead>

    <tbody>

    !for fwi_ in $activefreew

      !reset loadwork codownload seealltime putiworkco scoring

      !readproc adm/freework/mkfwglobvar.proc $fwi_

      !! l'output di questo è in "output" (!!!!)