Index: openacs-4/packages/curriculum/lib/bar.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum/lib/bar.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/curriculum/lib/bar.tcl 3 Jun 2003 10:21:50 -0000 1.1 +++ openacs-4/packages/curriculum/lib/bar.tcl 10 Jun 2003 09:28:29 -0000 1.2 @@ -15,6 +15,7 @@ } set package_url [curriculum::conn package_url] +set package_id [curriculum::conn package_id] set logged_in_p [ad_conn user_id] @@ -24,4 +25,10 @@ # Upvar the "elements" multirow datasource for the curriculum bar. curriculum::get_bar -bar_p 1 -ad_return_template +# Top, bottom, left, right. +set position [parameter::get -package_id $package_id -parameter ExternalSiteBarPosition -default bottom] + +# Horizontal or vertical. +set direction [parameter::get -package_id $package_id -parameter BarDirection -default horizontal] + +ad_return_template /packages/curriculum/lib/bar-$direction