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.2 -r1.3
--- openacs-4/packages/curriculum/lib/user-curriculums.tcl	10 Jun 2003 09:28:29 -0000	1.2
+++ openacs-4/packages/curriculum/lib/user-curriculums.tcl	13 Jun 2003 11:44:33 -0000	1.3
@@ -11,16 +11,18 @@
     logged_in_p:onevalue
 }
 
+set package_id [curriculum::conn package_id]
+
 set logged_in_p [ad_conn user_id]
 
-#set curriculum_count [curriculum::conn -nocache curriculum_count]
-
 # Upvar the "elements" multirow datasource for the curriculum bar.
-curriculum::get_bar -bar_p 0
+curriculum::get_bar -bar_p 0 -package_id $package_id
 
-set package_id [curriculum::conn package_id]
-
 # Top, bottom, left, right.
 set position [parameter::get -package_id $package_id -parameter ExternalSiteBarPosition -default bottom]
 
+# Prefix relevant urls with @url@ and they'll work when <include>d
+# into the dotLRN portlet.
+set url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]
+
 ad_return_template