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 "Description of $label." \
+ -description "Description of $label." \
-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 "Description of $label." \
+ -description "Description of $label." \
-desc_format "text/fixed-width" \
-url $url
}