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">
      <div class="wims_title_seq">
       <span class="wims_seq_id">$sequence_Title $i</span>
       <span class="wims_title_item">$tis_</span>
     </div>
    <div class="wims_comment_item">$cos_
  !if $wims_user=supervisor
      ($(wims_name_status[$o_+1]))&nbsp;
   !set wims_ref_class=wims_button_help
   !href module=adm/class/sequence&job=addseq&seq=$i $wims_name_change
   !if $i>1
     !set wims_ref_class=wims_button_help
     !href cmd=reply&job=moveup&moveup=$i $wims_name_up
   !endif
   !set wims_ref_class=wims_button_help wims_warning
   !href cmd=reply&job=delete&seq=$i $wims_name_erase
   !endif
   </div>
   <ul class="wims_work_list">
   !set dcnt=!itemcnt $obj_
   !for i_=1 to $dcnt
    !distribute word $(obj_[$i_]) into type,num
    !if $type=c
      !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_
      ($(wims_name_status[$o_+1]))
       <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_
     ($(wims_name_status[$o_+1]))
      <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
    ($(wims_name_shstatus[$a_+1]))
    <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_
     <div class="wims_vote_item">
      !href module=adm/vote&job=read&vote=$num&seq=$i $t_
     ($(wims_name_status[$a_+1]))
      <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_
     ($(wims_name_shstatus[$a_+1]))
      <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>