Index: openacs-4/packages/curriculum/lib/user-curriculums.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum/lib/user-curriculums.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/curriculum/lib/user-curriculums.tcl	14 Jun 2003 16:29:24 -0000	1.4
+++ openacs-4/packages/curriculum/lib/user-curriculums.tcl	11 Dec 2003 21:40:01 -0000	1.5
@@ -11,8 +11,21 @@
     logged_in_p:onevalue
 }
 
-set package_id [curriculum::conn package_id]
+# "package_id" may or may not be provided as an attribute with the <include> tag.
+if { ![info exists package_id] } {
+    set package_id [curriculum::conn package_id]
+}
 
+# "template" may or may not be provided as an attribute with the <include> tag.
+if { ![info exists template] } {
+    # Use the ordinary template (user-curriculums.adp).
+    set template ""
+} else {
+    # Assume "template" came from the portlet <include> and calculate the community name, etc.
+    set community_name [site_nodes::get_parent_name -package_id $package_id]
+    set indent [string repeat "&nbsp;" 4]
+}
+
 set logged_in_p [ad_conn user_id]
 
 # Upvar the "elements" multirow datasource for the curriculum bar.
@@ -28,4 +41,4 @@
 set return_url [ad_return_url]
 set return_url_export [export_vars -url return_url]
 
-ad_return_template
+ad_return_template $template