Index: dotlrn_packages/lams2int/www/admin/add.tcl
===================================================================
diff -u -r01b61a79cd4775716c20ad9d89d75e22447cd016 -r9ba3c2dd894b4a5fc88a1a7dfe9974472039affd
--- dotlrn_packages/lams2int/www/admin/add.tcl	(.../add.tcl)	(revision 01b61a79cd4775716c20ad9d89d75e22447cd016)
+++ dotlrn_packages/lams2int/www/admin/add.tcl	(.../add.tcl)	(revision 9ba3c2dd894b4a5fc88a1a7dfe9974472039affd)
@@ -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
+