Subversion Repositories wimsdev

!set docsh_out=$wims_read_parm
!set tmp_list=worksheet cmd module session lang
!read getparm $docsh_out $tmp_list
!set docsh_out=$wims_read_parm
!set tmp_list=!words2items $tmp_list
!for name in $tmp_list
  !set get_$name=!listuniq $(get_$name)
  !for tt in $(get_$name)
    !set docsh_out=!replace internal $name=$tt by $empty in $docsh_out
  !next
  !set docsh_out=!replace internal $name=& by $empty in $docsh_out
!next

!set docsh_out=!replace internal & by , in $docsh_out
!set docsh_out=!nonempty items $docsh_out
!set docsh_out=!replace internal , by & in $docsh_out
!set docsh_out=!nospace $docsh_out