Index: dotlrn_packages/lams2int/www/admin/add.tcl
===================================================================
RCS file: /usr/local/cvsroot/dotlrn_packages/lams2int/www/admin/add.tcl,v
diff -u -r1.1 -r1.2
--- dotlrn_packages/lams2int/www/admin/add.tcl	12 Sep 2007 06:37:02 -0000	1.1
+++ dotlrn_packages/lams2int/www/admin/add.tcl	2 Oct 2007 00:48:02 -0000	1.2
@@ -6,7 +6,7 @@
     
     @author Ernie Ghiglione (ErnieG@melcoe.mq.edu.au)
     @creation-date 2007-04-16
-    @cvs-id $Id$
+    @cvs-id add.tcl,v 1.1 2007/09/12 06:37:02 ernieg Exp
 } {
     
 } -properties {
@@ -57,8 +57,10 @@
 
     if {[string equal [$node nodeName] "Folder"]} {
 
-	append output "\[ '[$node getAttribute name]', null , "
+	regsub -all {'} [$node getAttribute name] {\\'} folder_name
 
+	append output "\[ '$folder_name', null , "
+
 	if {[$node hasChildNodes]} {
 
 	    foreach child [$node childNodes] {
@@ -84,8 +86,10 @@
     } else {
 	# the node is a LearningDesign
 
-	append output "\[ '[$node getAttribute name]', 'javascript:selectSequence([$node getAttribute resourceId])' \] "
+	regsub -all {'} [$node getAttribute name] {\\'} design_name
 
+	append output "\[ '$design_name', 'javascript:selectSequence([$node getAttribute resourceId])' \] "
+
 	if {![empty_string_p [$node nextSibling]]} {
 	    append output ", " 
 	} else {
@@ -101,3 +105,5 @@
 
 set sequence_list [concat [process_node $content] " \] "]
 
+#regsub -all {'} $sequence_list {\\'} sequence_list
+