Subversion Repositories wimsdev

Rev

Rev 13654 | Rev 14769 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13654 Rev 13675
Line 39... Line 39...
39
!for i_=1 to $dcnt
39
!for i_=1 to $dcnt
40
  !distribute word $(obj_[$i_]) into type,num
40
  !distribute word $(obj_[$i_]) into type,num
41
  !if $type=c
41
  !if $type=c
42
    !set d_=!nospace $(obj_[$i_])
42
    !set d_=!nospace $(obj_[$i_])
43
    !set num=!positionof line $d_ in $listc
43
    !set num=!positionof line $d_ in $listc
44
    !set d_=!record $num of wimshome/log/classes/$wims_class/doc/.index
44
      !set d_=!record $num of wimshome/log/classes/$wims_class/doc/.index
45
    !distribute lines $d_ into s_,t_,bidon,bidon,bidon,o_,bidon,bidon,de_
45
      !distribute lines $d_ into s_,t_,bidon,bidon,bidon,o_,bidon,bidon,de_
46
    <li class="wims_doc_item">
46
        <li class="wims_doc_item">
47
      !href module=adm/doc&job=read&doc=$s_&block=main&seq=$i $t_
47
        !href module=adm/doc&job=read&doc=$s_&block=main&seq=$i $t_
48
      <span class="wims_status wims_status_$[min($o_,1)]">($(wims_name_status[$[min($o_+1,2)]]))</span>
48
        <span class="wims_status wims_status_$[min($o_,1)]">($(wims_name_status[$[min($o_+1,2)]]))</span>
49
      <div class="wims_doc_desc">$de_</div>
49
        <div class="wims_doc_desc">$de_</div>
50
    </li>
50
        </li>
51
    !reset s_,t_,bidon,bidon,bidon,o_
51
        !reset s_,t_,bidon,bidon,bidon,o_
52
  !endif
52
      !endif
53
  !if $type=doc
53
  !if $type=doc
54
    !set d_=!record $num of wimshome/log/classes/$wims_class/doc/.docindex
54
    !set d_=!record $num of wimshome/log/classes/$wims_class/doc/.docindex
55
    !distribute lines $d_ into s_,t_,ti_,de_,o_
55
    !distribute lines $d_ into s_,t_,ti_,de_,o_
56
    <li class="wims_doc_item">
56
    <li class="wims_doc_item">
57
      !href module=$s_&$t_&seq=$i&name=$wims_name_sequence $ti_
57
      !href module=$s_&$t_&seq=$i&name=$wims_name_sequence $ti_