Subversion Repositories wimsdev

Rev

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

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