Subversion Repositories wimsdev

Rev

Rev 2290 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
288 bpr 1
mlist=.newlist
237 bpr 2
!bound l_order within 1,2 default 1
3
 
4
!if $mlist>0
13679 bpr 5
  tot=!recordcnt $forumdir/$mlist/.msglist
6
  !if $tot>0
7
    lyear=!char 1 to 4 of $mlist
8
    lmon=!char 5,6 of $mlist
9
    !goto end
10
  !endif
237 bpr 11
!endif
12
 
13
mlist=.newlist
14
mnew=!record 0 of $forumdir/.newlist
15
tot=!linecnt $mnew
16
 
17
:end
18
 
19
threadlist=
20
 
21
!for p_ = 1 to $tot
22
  !if $mlist=.newlist
13679 bpr 23
    !set l_=!line $p_ of $mnew
24
    !distribute word $l_ into a_,b_
25
    !set l_=!record $b_ of $forumdir/$a_/.msglist
237 bpr 26
  !else
13679 bpr 27
    !set l_=!record $p_ of $forumdir/$mlist/.msglist
237 bpr 28
  !endif
29
  test_=!item 5 of $l_
30
  test_=!replace internal O by , in $test_
31
  !if $(test_[1])=$empty
32
    c_=!item 4 of $l_
288 bpr 33
    threadlist= !append item $(test_[2]) to $threadlist
237 bpr 34
  !endif
35
!next
36
tot_t=!itemcnt $threadlist