Subversion Repositories wimsdev

!! --------------------  affiche le contenu de la feuille $sheet de la classe $wims_class

!! langage is defined in adm/class/sheet/lang/names.phtml.$lang

$(name_activindividualisation): <span class="tt">$name</span>

!if $activetest=0

!form reply

  <input type="hidden" name="job" value="indiv" />

!endif

  $table_header

  <caption>$name_contentindiv</caption>

  <thead>

    $table_hdtr

      !for k=1 to 2

        <th>$(name_shtab[$k])</th>

      !next k

      !for k=1 to $nb_val

        <th>$(listval[$k])</th>

      !next k  

    </tr>

  </thead>

  <tbody>

  !let num=0

  !for i=1 to $exocnt

    !set ex=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$sheet

    !distribute lines $ex into di,pa,re,we,ti,de,dep,com,feed,icone,indiv$i

    !for k in re,we

      !let tmp=!row 2 to -1 of $($k)

      !let $(k)_1=!column 1 of $tmp

      !let $(k)_2=!column 2 of $tmp

    !next k

    $table_tr

    <td id="td_exo_$i">$i</td>

    <td> $ti </td>

    !if $activetest=0

        !for k=1 to $nb_val

          !increase num

          <td>

            !if $(listval[$k]) isitemof $(indiv$i)

              !let ch=checked="checked"

            !else

              !reset ch

            !endif

            <input type="checkbox" name="indiv$i" id="indiv$(i)_$k" value="$(listval[$k])" $ch />

            <label for="weight$num">$(name_shtab[5])</label>

            !let p=!positionof item $(listval[$k]) in $we_1

            !if $p!=$empty

              !let v=!item $p of $we_2

            !else

              !let v=$(we[1;])

            !endif

            <input type="text" name="weight$num" value="$v" id="weight$num" size="2" />

            <label for="require$num">$(name_shtab[4])</label>

            !let p=!positionof item $(listval[$k]) in $re_1

            !if $p!=$empty

              !let require$num=!item $p of $re_2

            !else

              !let require$num=$(re[1;])

            !endif

            !formselect require$num list $list_require

          </td>

        !next k

      !reset indiv$i

    !else

      !for k=1 to $nb_val

        <td>

          !if $(listval[$k]) isitemof $(indiv$i)

            ✅

            !let pw_=!positionof item $(listval[$k]) in $we_1

            !let pr_=!positionof item $(listval[$k]) in $re_1

            !if $pw_!=$empty

              $(name_shtab[5])

              !item $pw_ of $we_2

              !if $pr_!=$empty

                ; 

              !endif

            !endif

            !if $pr_!=$empty

              $(name_shtab[4])

              !item $pr_ of $re_2

            !endif          

          !endif

        </td>

      !next k

    !endif

    </tr>

  !next i

  </tbody>

  $table_end

!if $activetest=0

  <div class="wimscenter wimsform">

    <input type="submit" value="$wims_name_tosave" name="save_indiv"/>

    !set wims_ref_class= wims_button wims_secondary_button

    !href module=home $wims_name_giveup

  </div>

!formend

!endif