Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v
diff -u -N -r1.94.2.1 -r1.94.2.2
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl	1 Mar 2019 10:38:05 -0000	1.94.2.1
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl	1 Jul 2019 09:24:58 -0000	1.94.2.2
@@ -903,6 +903,7 @@
 
 ad_proc -public template::list::write_csv {
     -name:required
+    {-delimiter ","}
 } {
     Writes a CSV to the connection
 } {
@@ -927,7 +928,7 @@
             lappend __csv_labels [csv_quote $element_properties(label)]
         }
     }
-    append __output "\"[join $__csv_labels "\",\""]\"\n"
+    append __output "\"[join $__csv_labels "\"$delimiter\""]\"\n"
 
     set __rowcount [template::multirow size $list_properties(multirow)]
     set __rownum 0
@@ -965,7 +966,7 @@
                     lappend __cols [csv_quote [set $__element_name]]
                 }
             }
-            append __output "\"[join $__cols "\",\""]\"\n"
+            append __output "\"[join $__cols "\"$delimiter\""]\"\n"
         }
     }
     set oh [ns_conn outputheaders]