Subversion Repositories wimsdev

!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)