Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
20 reyssat 1 
!if $wims_read_parm!=slib_header
13585 bpr 2 
  !goto proc
20 reyssat 3 
!endif
4158 bpr 4 
 
4349 bpr 5 
slib_author=Gang, XIAO
4158 bpr 6 
 
20 reyssat 7 
!exit
8 
 
9 
:proc
10 
!if (...adm/ isin ...$module and / isin $wims_read_parm) \
11 
	or .. isin $wims_read_parm or $wims_read_parm=$empty
13585 bpr 12 
  !exit
20 reyssat 13 
!endif
14 
slib_fname=!items2words $wims_read_parm
15 
slib_fname=!word 1 of $slib_fname
16 
slib_n=!recordcnt $slib_fname
17 
!if $slib_n<1
13585 bpr 18 
  slib_out=
19 
  !exit
20 reyssat 20 
!endif
21 
slib_n=!randint 1,$slib_n
22 
slib_out=!record $slib_n of $slib_fname