Subversion Repositories wimsdev

Rev

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

Rev 2290 Rev 13679
Line 3... Line 3...
3 
thr=!record 0 of $forumdir/.threads/$th_orig
 3 
thr=!record 0 of $forumdir/.threads/$th_orig
4 
th_start=!translate / to _ in $th_start
 4 
th_start=!translate / to _ in $th_start
5 
thtcnt=!linecnt $thr
 5 
thtcnt=!linecnt $thr
6 
count_$th_orig=0
 6 
count_$th_orig=0
7 
!for i=1 to $thtcnt
 7 
!for i=1 to $thtcnt
8 
 l=!line $i of $thr
 8 
  l=!line $i of $thr
9 
 l=!translate / to _ in $l
 9 
  l=!translate / to _ in $l
10 
 !distribute word $l into a_,b_
 10 
  !distribute word $l into a_,b_
11 
 !if $a_=$th_start
 11 
  !if $a_=$th_start
12 
  startnum=$i
 12 
    startnum=$i
13 
 !endif
 13 
  !endif
14 
 count_$a_=$i
 14 
  count_$a_=$i
15 
 F_$(count_$b_)=!append item $i to $(F_$(count_$b_))
 15 
  F_$(count_$b_)=!append item $i to $(F_$(count_$b_))
16 
 a_=!translate _ to $ $ in $a_
 16 
  a_=!translate _ to $ $ in $a_
17 
 thcomp=!append line $a_ to $thcomp
 17 
  thcomp=!append line $a_ to $thcomp
18 
!next i
 18 
!next i
19 
 
 19 
 
20 
!if $startnum=$empty
 20 
!if $startnum=$empty
21 
 startnum=0
 21 
  startnum=0
22 
 th_start=$th_orig
 22 
  th_start=$th_orig
23 
!endif
 23 
!endif
24 
 
 24 
 
25 
s_=!translate /_ to ,, in $th_start
 25 
s_=!translate /_ to ,, in $th_start
26 
!distribute item $s_ into o1,o2
 26 
!distribute item $s_ into o1,o2
27 
 
 -