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

!else

  !if $user_photourl!=

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

  !endif

!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

!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

!else

!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

!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

!endif

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

!endif

!! ------------------ display table for each sheet

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

!distribute words $tmp into tmp_w,tmp_s,tmp_ss

!for i=1 to $activecnt

  !set exonumber=0

  !set l_=!line $i of $activesheets

  !distribute items $l_ into n_,e_,indtechvar

  !set L_=!line $n_ of $defaultformula

  !reset A_ B_ C_

  !distribute word $L_ into A_,B_,C_

  !default A_=$tmp_w

  !default B_=$tmp_s

  !default C_=$tmp_ss

  !set t_=!item 4 to -1 of $l_

  !set t_=!char 1 to $title_limit of $t_

  !set v_=!getscorerequire sheet=$n_ user=$getuser

  !set w_=!wordcnt $v_

  !set S_=0

  !for k=1 to $w_

    !set a_=!word $k of $v_

    !set S_=$[$S_+$a_]

  !next k

  !if $S_<=0

    !goto next

  !endif

  !set sw=!line $[$n_+1] of $shweights

  !set q=!word 2 of $sw

  !set sw=!word 3 of $sw

  !bound sw between integer 0 and 2 default $tmp_ss

  !bound q between integer 0 and 6 default $tmp_s

  !set seq_open=!defof sequence_open in wimshome/log/classes/$wims_class/seq/.def

  !if $indtechvar!=$empty

    !let pos_=!positionof item $indtechvar in $tv_listcode

    !let nametechvar=!item $pos_ of $tv_listname

    !set pos=!positionof item $nametechvar in $(user_vars[;1])

    !set indtechvarvalue=!item $pos of $(user_vars[;2])

    !set listvalue=!record $n_ of wimshome/log/classes/$wims_class/sheets/.vars

    !set listvalue=!word 3 to -1 of $listvalue

    !set listvalue=!words2items $listvalue

    !bound indtechvarvalue within $empty,$listvalue default $empty

    !if $indtechvarvalue=$empty

        !reset tmp

    !else

        !set tmp= - $nametechvar $indtechvarvalue

    !endif

  !else

   !reset tmp

  !endif

  !if $seq_open!=yes

    !set hat=$name_Sheet $n_$(tmp)  : $t_

  !else

    !set hat=$wims_name_sequence $(t_[1])$tmp  : $(t_[2..-1])

  !endif

  <br class="spacer">

  !if $wims_user=supervisor

    !set nb_indic=5

  !else

    !set nb_indic=3

  !endif

  !set P_=!line $n_ of $percents

  !distribute words $P_ into p1,p2,p3,p4

  !if $p2!=$empty

    !distribute item $[$p1/100],$[$p2/10],$[$p3/100],$[$p4/100] into x0_,y_,x1_,x2_

    !set ff_$n_=!mathsubst Q=$y_ in $(f_$n_)

    !for sev=0 to 2

      !set ff_$n_=!mathsubst I$sev=$(x$(sev)_) in $(ff_$n_)

    !next

    !! home/sequence.phtml

    !! adm/class/userscore/csv/download.proc

    !! themes/_widgets/usersheet.phtml

    !set p_=$[rint(100*$scoremax*$(ff_$n_))/100]

  !endif

  !set table_id=TABLE_sheet$i

  !set table_class=sortable

  $table_header

  <thead id="sheet$n_">

  <tr><th colspan="$[$nb_indic+5]" style="text-align:left">

  !if $p2!=$empty

    <div class="float_left">

      !if $seq_open!=yes or $(listshowseq[$(t_[1])])=1

        !href module=adm/sheet&sh=$n_ $hat

      !else

        $hat

      !endif

      <ul>

        <li>$(wims_name_thsheet[4]): $A_</li>

        !if $wims_user=supervisor

          <li>$(wims_name_thsheet[8]):

            !lowercase $(f_$n_)

            !set wims_ref_class=wims_button_help

            !href cmd=help&special_parm=$n_ $(wims_name_help)

          </li>

        !endif

        !!global note

        !if $(min_$n_)<$scoremax

             <li>$name_minmax: $(min_$n_)/$(mean_$n_)/$(max_$n_)</li>

        !endif

      </ul>

    </div>

    !reset tmp_ss

    <ul class="float_right">

      !! score

      <li>$(wims_name_thsheet[9]):

             $p_

      / $scoremax.</li>

      !! quality

      !if $wims_user=supervisor or $q!=1

        <li>$(wims_name_thsheet[7]):

             $p2

        /10</li>

      !endif

      !! Cumul

      !if $wims_user=supervisor or $sw=0

        <li>$(wims_name_thsheet[5]):

             $p1

         %</li>

      !endif

      !! Best score

      !if $wims_user=supervisor or $sw=1

        <li>$(wims_name_thsheet[10]):

             $p3

        %</li>

      !endif

      !! Acquired

      !if $wims_user=supervisor or $sw=2

        <li>$(wims_name_thsheet[13]):

             $[$p4/10]

        /10</li>

      !endif

    </ul>

  !else

    !href module=adm/sheet&sh=$n_ $hat

  !endif

  </div>

  </th></tr>

  $table_hdtr

    <th scope="col" data-sort-method="number">$(wims_name_thsheet[1])</th>

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

    <th scope="col" data-sort-method="number">$(wims_name_thsheet[3])</th>

    <th scope="col" data-sort-method="number">$(wims_name_thsheet[4])</th>

    !!qualite

    <th scope="col" data-sort-method="number">$(wims_name_thsheet[7])</th>

    !if $wims_user=supervisor or $sw=0

      !!I0: percentage work (related to cumul)

      <th scope="col" data-sort-method="number">$(wims_name_thsheet[5])</th>

    !endif

    !if $wims_user=supervisor or $sw=1

      !!I1: best percentage

      <th scope="col" data-sort-method="number">$(wims_name_thsheet[10])</th>

    !endif

    !if $wims_user=supervisor or $sw=2

      !!I2: level

      <th scope="col" data-sort-method="number">$(wims_name_thsheet[13])</th>

    !endif

    !!last

    <th scope="col" data-sort-method="number">$(wims_name_thsheet[12])</th>

    !!number try

    <th scope="col" data-sort-method="number">

      <div class="wims_tooltip">$(wims_name_thsheet[11])

        <div class="wims_tooltiptext left" style="width:50em">

          $name_tryhelp

        </div>

      </div>

    </th>

  </tr>

  </thead>

  <tbody>

  !for j=1 to $e_

    !let d=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$n_

    !distribute line $d into t,t,t,t,title_,t,t,t,t,t,indiv_

    !if $indtechvar=$empty or $(user_techvar_$indtechvar)=$empty or $(user_techvar_$indtechvar) isitemof $indiv_

      !increase exonumber

      $table_tr

        <td>$exonumber</td>

        <td>$(title_)</td>

        <td>

          !let req_=!getscorerequire user=$getuser sheet=$n_ work=$j

          $(req_)

        </td><td>

          !getscoreweight user=$getuser sheet=$n_ work=$j

        </td>

        !set try=!getscoretry user=$getuser sheet=$n_ work=$j

        !set alltry=!getscorealltries user=$getuser sheet=$n_ work=$j

        !if $alltry<=0

          !set makelist=!makelist <td>--</td> for j=1 to $nb_indic+1

          !replace , by in $makelist

        !else

          !!!quality in exercise will always appear.

          !set d_=!getscorequality user=$getuser sheet=$n_ work=$j

          !default d_=0

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

          <td style=$style_note>$d_</td>

          !!cumul

          !if $wims_user=supervisor or $sw=0

            !set d_=!getscore user=$getuser sheet=$n_ work=$j

            !default d_=0

            !!percentage

            !if $(req_)>0

              !read adm/class/colors $[ceil(10*$d_/$(req_))]

              <td style=$style_note>$[ceil(100*$d_/$(req_))]%</td>

            !else

              <td>--</td>

            !endif

          !endif

          !if $wims_user=supervisor or $sw=1

            !!best percentage

            !set best=!getscorebest user=$getuser sheet=$n_ work=$j

            !read adm/class/colors $[ceil(10*$best/$req_)]

            <td style=$style_note>$[ceil($[$best*100/$req_])]%</td>

          !endif

          !if $wims_user=supervisor or $sw=2

            !!level

            !set level=!getscorelevel user=$getuser sheet=$n_ work=$j

            !read adm/class/colors $[min(ceil($level+0.1),10)]

            <td style=$style_note>$level</td>

          !endif

          !!last

          !set last=!getscorelast user=$getuser sheet=$n_ work=$j

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

          <td style=$style_note>$last</td>

          !!try

          <td>

            !set tmp=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$n_

            !distribute lines $tmp into di,pa

            !read getparm $pa, seedrepeat, exotrymax

            !set tmp=!getseedscores user=$getuser sheet=$n_ work=$j

            !set tmp=!declosing $tmp

            !set tmp=!select $tmp where column 2 > -2

            !set tmp_cnt=!itemcnt $(tmp[;1])

            !if $get_seedrepeat>0

              !set tmp_width=width:$[ceil($tmp_cnt/$get_seedrepeat)+1]em;

            !else

              !set tmp_width=width:$[$tmp_cnt+1]em;

            !endif

            <div class="wims_tooltip">

              !if $get_exotrymax=$empty

                $try + $[$alltry-$try]

              !else

                ($try + $[$alltry-$try]) | $get_exotrymax

              !endif

              <div class="wims_tooltiptext left" style="$tmp_width">

                !read adm/class/seedscore.phtml [$tmp],$get_seedrepeat

              </div>

            </div>

            !reset tmp get_seedrepeat tmp_width

          </td>

        !endif try

      </tr>

    !endif

  !next j

  </tbody>

  $table_end

  !read tablesort.phtml

  :next

!next i

!read wimshome/public_html/themes/_widgets/topback.phtml

!if $exologs!=$empty

  !set wims_menu_items=!append line itemsep,0,\

 reg_ex,1,module=adm/class/exolog&cmd=new&job=list&checkuser=$getuser\

 to $wims_menu_items

!endif

!set wims_menu_items=!append line rawdata,1,cmd=reply&job=getraw&getraw=$getuser\

to $wims_menu_items

!if $wims_user=supervisor or $class_examshow!=no

  !set wims_name_title_examdetail=$name_exam_expl

  !set wims_menu_items=!append line examdetail,1,cmd=reply&job=examcheck&checkuser=$getuser\

to $wims_menu_items

!endif

!if $wims_user=supervisor

  !set wims_menu_items=!append line \

account,1,module=adm/class/usermanage&job=userprop&getuser=$getuser\

to $wims_menu_items

  !if (($wims_supertype<3 and $wims_typename=class) or ($wims_supertype=4 and $wims_typename=course)) and $wims_showlivret!=no

    !set wims_menu_items=!append line livret1,1,module=adm/class/livret&job=user&user=$getuser\

to $wims_menu_items

    !set wims_menu_items=!append line activity1,1,module=adm/class/activity&job=exobyday&user=$getuser\

to $wims_menu_items

  !endif

  !set wims_menu_items=!append line itemsep,0, \

part_list,1,cmd=resume\

to $wims_menu_items

  !read adm/class/getnextuser $wims_class,$getuser,getuser,getuser

!else

  !if $wims_showlivret!=no

    !set livret_nbcomp=!recordcnt wimshome/log/classes/$wims_class/livret/.comps

    !if $livret_nbcomp >0

      !set wims_menu_items=!append line livret,1,module=adm/class/livret to $wims_menu_items

    !endif

  !endif

!endif

<br class="spacer">

!reset tmp tmp_w tmp_s tmp_ss