Index: openacs-4/packages/assessment/tcl/as-assessment-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-assessment-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	23 Jan 2005 20:23:58 -0000	1.17
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	26 Jan 2005 11:06:45 -0000	1.18
@@ -485,6 +485,18 @@
     }
 }
 
+ad_proc -private as::assessment::quote_export {
+    -text:required
+} {
+    @author Timo Hentschel (timo@timohentschel.de)
+    @creation-date 2005-01-26
+
+    Quotes a string for csv export
+} {
+    regsub -all {;} $text {,,} text
+    return $text
+}
+
 ad_proc -private as::assessment::compare_numbers {a b} {
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-01-18