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.2 -r1.3
--- openacs-4/packages/curriculum/tcl/apm-callback-procs.tcl	10 Jun 2003 09:29:49 -0000	1.2
+++ openacs-4/packages/curriculum/tcl/apm-callback-procs.tcl	13 Jun 2003 19:51:06 -0000	1.3
@@ -44,51 +44,6 @@
     Package instantiation callback proc.
 } {
     curriculum::instance_workflow_create -package_id $package_id
-    
-    ###
-    # FIXME. We just set this up for convenience during development.
-    ###
-    
-    db_transaction {
-
-	set subsite_url [curriculum::conn subsite_url]
-
-	# Create a curriculum.
-	set curriculum_id [curriculum::new \
-			       -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 "Description of <i>$label</i>." \
-		-desc_format "text/html" \
-		-url $url
-	}
-	
-	# Create a curriculum.
-	set curriculum_id [curriculum::new \
-			       -name [set name "Demo Curriculum B"] \
-			       -description "$name description." \
-			       -package_id $package_id]
-	
-	# Add some elements.
-	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 "Description of <i>$label</i>." \
-		-desc_format "text/fixed-width" \
-		-url $url
-	}
-	
-    }
-
-    curriculum::elements_flush
-
 }