Subversion Repositories wimsdev

Rev

Rev 4318 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4318 Rev 4319
Line -... Line 1...
- 
 
 1 
 
1 
!set script_authors=$(wims_read_parm)
 2 
!set script_authors=$(wims_read_parm)
2 
!set s_authors=!rows2lines $script_authors
 3 
!set s_authors=!rows2lines $script_authors
3 
!set script_cnt=!linecnt $script_authors
 4 
!set script_cnt=!linecnt $s_authors
4 
!set script_out=
 5 
!set script_out=
5 
 
 6 
 
6 
!if $module_language=cn
 7 
!if $module_language=cn
7 
 !for s_auth = 1 to $cnscript_cnt
 8 
 !for s_auth = 1 to $cnscript_cnt
8 
  !set script_out=!append line $(script_authors[$s_auth;2]), $(script_authors[$s_auth;1]) to $script_out
 9 
  !set script_out=!append line $(script_authors[$s_auth;2]), $(script_authors[$s_auth;1]) to $script_out
9 
 !next
 10 
 !next
10 
!else
 11 
!else
11 
 !for s_auth = 1 to $script_cnt
 12 
 !for s_auth = 1 to $script_cnt
- 
 
 13 
   !if XIAO isin $(script_authors[$s_auth;1])$(script_authors[$s_auth;2])
- 
 
 14 
     !set script_out=!append line $(script_authors[$s_auth;2]) $(script_authors[$s_auth;1]) to $script_out
- 
 
 15 
   !else
12 
   !set script_out=!append line $(script_authors[$s_auth;1]) $(script_authors[$s_auth;2]) to $script_out
 16 
     !set script_out=!append line $(script_authors[$s_auth;1]) $(script_authors[$s_auth;2]) to $script_out
- 
 
 17 
   !endif  
13 
  !next
 18 
  !next
14 
!endif
 19 
!endif
15 
!set script_out=!lines2items $script_out
 20 
!set script_out=!lines2items $script_out
16 
!set script_out=!nonempty items $script_out
 21 
!set script_out=!nonempty items $script_out
17 
!set script_out=!replace internal , by ,$ $ in $(script_out)
 22 
!set script_out=!replace internal , by ,$ $ in $(script_out)