
!set script_authors=$(wims_read_parm)
!set s_authors=!rows2lines $script_authors
!set script_cnt=!linecnt $s_authors
!set script_out=

!if $module_language=cn
  !for s_auth = 1 to $script_cnt
    !set script_out=!append line $(script_authors[$s_auth;2]), $(script_authors[$s_auth;1]) to $script_out
  !next
!else
 !for s_auth = 1 to $script_cnt
   !if XIAO isin $(script_authors[$s_auth;1])$(script_authors[$s_auth;2])
     !set script_out=!append line $(script_authors[$s_auth;2]) $(script_authors[$s_auth;1]) to $script_out
   !else
     !set script_out=!append line $(script_authors[$s_auth;1]) $(script_authors[$s_auth;2]) to $script_out
   !endif
  !next
!endif
!set script_out=!lines2items $script_out
!set script_out=!nonempty items $script_out
!set script_out=!replace internal , by ,$ $ in $(script_out)
