Subversion Repositories wimsdev

Rev

Rev 2290 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2290 Rev 13679
Line 4... Line 4...
4 
!if $mlist>0
 4 
!if $mlist>0
5 
 tot=!recordcnt $forumdir/$mlist/.msglist
 5 
  tot=!recordcnt $forumdir/$mlist/.msglist
6 
 !if $tot>0
 6 
  !if $tot>0
7 
  lyear=!char 1 to 4 of $mlist
 7 
    lyear=!char 1 to 4 of $mlist
8 
  lmon=!char 5,6 of $mlist
 8 
    lmon=!char 5,6 of $mlist
9 
  !goto end
 9 
    !goto end
10 
 !endif
 10 
  !endif
11 
!endif
 11 
!endif
12 
 
 12 
 
13 
mlist=.newlist
 13 
mlist=.newlist
14 
mnew=!record 0 of $forumdir/.newlist
 14 
mnew=!record 0 of $forumdir/.newlist
15 
tot=!linecnt $mnew
 15 
tot=!linecnt $mnew
Line 18... Line 18...
18 
 
 18 
 
19 
threadlist=
 19 
threadlist=
20 
 
 20 
 
21 
!for p_ = 1 to $tot
 21 
!for p_ = 1 to $tot
22 
  !if $mlist=.newlist
 22 
  !if $mlist=.newlist
23 
   !set l_=!line $p_ of $mnew
 23 
    !set l_=!line $p_ of $mnew
24 
   !distribute word $l_ into a_,b_
 24 
    !distribute word $l_ into a_,b_
25 
   !set l_=!record $b_ of $forumdir/$a_/.msglist
 25 
    !set l_=!record $b_ of $forumdir/$a_/.msglist
26 
  !else
 26 
  !else
27 
   !set l_=!record $p_ of $forumdir/$mlist/.msglist
 27 
    !set l_=!record $p_ of $forumdir/$mlist/.msglist
28 
  !endif
 28 
  !endif
29 
  test_=!item 5 of $l_
 29 
  test_=!item 5 of $l_
30 
  test_=!replace internal O by , in $test_
 30 
  test_=!replace internal O by , in $test_
31 
  !if $(test_[1])=$empty
 31 
  !if $(test_[1])=$empty
32 
    c_=!item 4 of $l_
 32 
    c_=!item 4 of $l_