Subversion Repositories wimsdev

!distribute items $wims_read_parm into i,j

!default j=1

!set seq_=!record $j of wimshome/log/classes/$wims_class/seq/.sequence$i

!distribute line $seq_ into tis_,cos_,obj_,o_

<div id="wims_seq_$i" class="wims_seq">

  <h2 class="wims_title_seq">

    <span class="wims_seq_id">$sequence_Title $i</span>

    <span class="wims_title_item">$tis_</span>

    !if $wims_user=supervisor

      <span class="wims_status wims_status_$o_">($(wims_name_status[$o_+1]))</span>

    !endif

  </h2>

  <div class="wims_content_seq">

    !if $wims_user=supervisor

      <div class="wims_seq_actions">

        !set wims_ref_class=wims_button

        !href module=adm/class/sequence&job=addseq&seq=$i $wims_name_change

        !if $i>1

          !set wims_ref_class=wims_button

          !href cmd=reply&job=moveup&moveup=$i $wims_name_up

        !endif

        !set wims_ref_class=wims_button wims_warning

        !href cmd=reply&job=delete&seq=$i $wims_name_erase

        !if $o_=1

          !set wims_ref_class=wims_button

          !href cmd=reply&job=changeopt&seq=$i&option=0 $(wims_name_actionlist[4])

        !else

          !set wims_ref_class=wims_button

          !href cmd=reply&job=changeopt&seq=$i&option=1 $(wims_name_actionlist[5])

        !endif

      </div>

    !endif

    <div class="wims_comment_item">$cos_</div>

    <ul class="wims_work_list">

      !set dcnt=!itemcnt $obj_

      !set listc=!filelist $wims_home/log/classes/$wims_class/doc

      !for i_=1 to $dcnt

        !distribute word $(obj_[$i_]) into type,num

        !if $type=c

          !set d_=!nospace $(obj_[$i_])

          !set num=!positionof line $d_ in $listc

          !set d_=!record $num of wimshome/log/classes/$wims_class/doc/.index

          !distribute lines $d_ into s_,t_,bidon,bidon,bidon,o_,bidon,bidon,de_

          <li class="wims_doc_item">

            !href module=adm/doc&job=read&doc=$s_&block=main&seq=$i $t_

            <span class="wims_status wims_status_$[min($o_,1)]">($(wims_name_status[$[min($o_+1,2)]]))</span>

            <div class="wims_doc_desc">$de_</div>

          </li>

          !reset s_,t_,bidon,bidon,bidon,o_

        !endif

        !if $type=doc

          !set d_=!record $num of wimshome/log/classes/$wims_class/doc/.docindex

          !distribute lines $d_ into s_,t_,ti_,de_,o_

          <li class="wims_doc_item">

            !href module=$s_&$t_&seq=$i&name=$wims_name_sequence $ti_

            <span class="wims_status wims_status_$[min($o_,1)]">($(wims_name_status[$[min($o_+1,2)]]))</span>

            <div class="wims_doc_desc">$de_</div>

          </li>

          !reset s_,t_,ti_,de_,o_

          !endif

        !endif

        !if $type=sheet

          !set s_=!record $num of wimshome/log/classes/$wims_class/sheets/.sheets

          !distribute lines $s_ into a_,t_,ti,de_

          <li class="wims_sheet_item">

            !href module=adm/sheet&sh=$num&seq=$i $ti

            <span class="wims_status wims_status_$a_">($(wims_name_shstatus[$a_+1]))</span>

            <div class="wims_sheet_desc">$de_</div>

          </li>

          !reset a_,t_,ti,de_

        !endif

        !if $type=vote

          !set v_=!record $num of wimshome/log/classes/$wims_class/vote/.votes

          !distribute lines $v_ into a_,t_,ti,de_

          <li class="wims_vote_item">

            !href module=adm/vote&job=read&vote=$num&seq=$i $t_

            <span class="wims_status wims_status_$a_">($(wims_name_status[$a_+1]))</span>

            <div class="wims_vote_desc">$de_</div>

          </li>

          !endif

          !reset a_,t_,ti,de_

        !endif

        !if $type=exam

          !set e_=!record $num of wimshome/log/classes/$wims_class/exams/.exams

          !distribute lines $e_ into a_,ex_,du_,t_,de_

          <li class="wims_exam_item">

            !href module=adm/class/exam&exam=$num&seq=$i $t_

            <span class="wims_status wims_status_$a_">($(wims_name_shstatus[$a_+1]))</span>

            <div class="wims_exam_desc">$de_</div>

          </li>

          !reset a_,ex_,du_,nb_,t_,de_

        !endif

        !reset s_ v_ d_ e_

      !next i_

    </ul>

  </div>

</div>