Subversion Repositories wimsdev

Rev

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

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