Index: openacs-4/packages/curriculum/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum/tcl/apm-callback-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/curriculum/tcl/apm-callback-procs.tcl	3 Jun 2003 10:28:20 -0000	1.1
+++ openacs-4/packages/curriculum/tcl/apm-callback-procs.tcl	10 Jun 2003 09:29:49 -0000	1.2
@@ -55,32 +55,32 @@
 
 	# Create a curriculum.
 	set curriculum_id [curriculum::new \
-			       -name "Demo Curriculum A" \
-			       -description Description \
+			       -name [set name "Demo Curriculum A"] \
+			       -description "$name description." \
 			       -package_id $package_id]
 	
 	# Add some elements.
 	foreach { url label } [list ${subsite_url}api-doc/ "API Documentation" ${subsite_url} "Home" ${subsite_url}doc/ "Package Documentation"] {
 	    curriculum::element::new \
 		-curriculum_id $curriculum_id \
 		-name $label \
-		-description "<b>Description</b> of $label." \
+		-description "Description of <i>$label</i>." \
 		-desc_format "text/html" \
 		-url $url
 	}
 	
 	# Create a curriculum.
 	set curriculum_id [curriculum::new \
-			       -name "Demo Curriculum B" \
-			       -description Description \
+			       -name [set name "Demo Curriculum B"] \
+			       -description "$name description." \
 			       -package_id $package_id]
 	
 	# Add some elements.
-	foreach { url label } [list ${subsite_url}admin/ "Admin" ${subsite_url}acs-service-contract/ "Service Contracts" http://openacs.org "OpenACS Website"] {
+	foreach { url label } [list ${subsite_url}curriculum/ "Curriculum Home" ${subsite_url}admin/ "Admin" ${subsite_url}acs-service-contract/ "Service Contracts" http://openacs.org "OpenACS Website"] {
 	    curriculum::element::new \
 		-curriculum_id $curriculum_id \
 		-name $label \
-		-description "<b>Description</b> of $label." \
+		-description "Description of <i>$label</i>." \
 		-desc_format "text/fixed-width" \
 		-url $url
 	}