Index: openacs-4/packages/curriculum/tcl/misc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum/tcl/misc-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/curriculum/tcl/misc-procs.tcl	13 Jun 2003 11:44:33 -0000	1.5
+++ openacs-4/packages/curriculum/tcl/misc-procs.tcl	18 Jun 2003 15:21:51 -0000	1.6
@@ -49,7 +49,13 @@
 		    # "ad_conn subsite_id" does not work when called from within a filter
 		    # (which we do for the curriculum bar), so we use the following instead.
 
-		    return [site_node_closest_ancestor_package [list dotlrn acs-subsite]]
+		    set package_keys [list acs-subsite]
+
+		    if { [apm_package_installed_p dotlrn] } {
+			set package_keys [concat dotlrn $package_keys]
+		    }
+
+		    return [site_node_closest_ancestor_package $package_keys]
 		}
 		package_id -
 		package_url -