Subversion Repositories wimsdev

Rev

Rev 11848 | Rev 12341 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

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