Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
23 reyssat 1
 
2
!bound l_order within 1,2 default 1
3
!if $mlist>0
13679 bpr 4
  tot=!recordcnt $forumdir/$mlist/.msglist
5
  !if $tot>0
6
    lyear=!char 1 to 4 of $mlist
7
    lmon=!char 5,6 of $mlist
8
    !exit
9
  !endif
23 reyssat 10
!endif
11
 
12
mlist=.newlist
9597 bpr 13
mnew=!record 0 of $forumdir/$mlist
23 reyssat 14
tot=!linecnt $mnew