Subversion Repositories wimsdev

Rev

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

Rev 4349 Rev 13585
Line 1... Line 1...
1 
!if $wims_read_parm!=slib_header
 1 
!if $wims_read_parm!=slib_header
2 
 !goto proc
 2 
  !goto proc
3 
!endif
 3 
!endif
4 
 
 4 
 
5 
slib_author=Gang, XIAO
 5 
slib_author=Gang, XIAO
6 
 
 6 
 
7 
slib_example= 3,4,8,fr\
 7 
slib_example= 3,4,8,fr\
8 
 3,4,8,en\
 8 
  3,4,8,en\
9 
  3,4,8,es
 9 
  3,4,8,es
10 
!exit
 10 
!exit
11 
 
 11 
 
12 
:proc
 12 
:proc
13 
slib_lang=!item -1 of $wims_read_parm
 13 
slib_lang=!item -1 of $wims_read_parm
14 
slib_lang_save=$module_language
 14 
slib_lang_save=$module_language
15 
!if $slib_lang iswordof $wims_site_languages
 15 
!if $slib_lang iswordof $wims_site_languages
16 
 slib_lens=!item 1 to -2 of $wims_read_parm
 16 
  slib_lens=!item 1 to -2 of $wims_read_parm
17 
 module_language=$slib_lang
 17 
  module_language=$slib_lang
18 
!else
 18 
!else
19 
 slib_lens=$wims_read_parm
 19 
  slib_lens=$wims_read_parm
20 
!endif
 20 
!endif
21 
slib_lens=!items2words $slib_lens
 21 
slib_lens=!items2words $slib_lens
22 
slib_out=!exec randic $slib_lens
 22 
slib_out=!exec randic $slib_lens
23 
slib_out=!singlespace $slib_out
 23 
slib_out=!singlespace $slib_out
24 
module_language=$slib_lang_save
 24 
module_language=$slib_lang_save
25 
 
 -