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_shstatus[$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[3])
  !else
    !set wims_ref_class=wims_button
    !href cmd=reply&job=changeopt&seq=$i&option=1 $(wims_name_actionlist[1])
  !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
  !if $type=glossary
    !set d_=!record $num of wimshome/log/classes/$wims_class/tool/.glossaryindex
    !distribute lines $d_ into o_,ti_,de_
    <li class="wims_glossary_item">
    !href module=adm/tool/glossary&gl=$num&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_glossary_desc">$de_</div>
    </li>
    !reset ti_,o_,de_
  !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=freework
    !set s_=!record $num of wimshome/log/classes/$wims_class/freeworks/.freeworks
    !distribute lines $s_ into a_,t_,ti,de_
    <li class="wims_freework_item">
      !href module=adm/class/freework&freework=$num&seq=$i $ti
      <span class="wims_status wims_status_$a_">($(wims_name_shstatus[$a_+1]))</span>
      <div class="wims_freework_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_
    <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>
    </li>
    !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
  !if $type=tool
    !set d_=!record $num of wimshome/log/classes/$wims_class/tool/.toolindex
    !distribute lines $d_ into s_,t_,ti_,de_,o_
    <li class="wims_tool_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_tool_desc">$de_</div>
    </li>
    !reset s_,t_,ti_,de_,o_
  !endif
!next i_
  </ul>
  </div>
</div>