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 $label." \
- -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 $label." \
- -desc_format "text/fixed-width" \
- -url $url
- }
-
- }
-
- curriculum::elements_flush
-
}