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
 
-