Subversion Repositories wimsdev

Rev

Rev 4158 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

!if $wims_read_parm!=slib_header
 !goto proc
!endif

slib_author=Gang, XIAO

!exit

:proc
!if (...adm/ isin ...$module and / isin $wims_read_parm) \
        or .. isin $wims_read_parm or $wims_read_parm=$empty
 !exit
!endif
slib_fname=!items2words $wims_read_parm
slib_fname=!word 1 of $slib_fname
slib_n=!recordcnt $slib_fname
!if $slib_n<1
 slib_out=
 !exit
!endif
slib_n=!randint 1,$slib_n
slib_out=!record $slib_n of $slib_fname