Subversion Repositories wimsdev

Rev

Rev 4318 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1.  
  2. !set script_authors=$(wims_read_parm)
  3. !set s_authors=!rows2lines $script_authors
  4. !set script_cnt=!linecnt $s_authors
  5. !set script_out=
  6.  
  7. !if $module_language=cn
  8.  !for s_auth = 1 to $cnscript_cnt
  9.   !set script_out=!append line $(script_authors[$s_auth;2]), $(script_authors[$s_auth;1]) to $script_out
  10.  !next
  11. !else
  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
  16.      !set script_out=!append line $(script_authors[$s_auth;1]) $(script_authors[$s_auth;2]) to $script_out
  17.    !endif  
  18.   !next
  19. !endif
  20. !set script_out=!lines2items $script_out
  21. !set script_out=!nonempty items $script_out
  22. !set script_out=!replace internal , by ,$ $ in $(script_out)
  23.