Index: openacs-4/www/default-master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/www/default-master.tcl,v diff -u -r1.18 -r1.19 --- openacs-4/www/default-master.tcl 8 Feb 2004 18:38:40 -0000 1.18 +++ openacs-4/www/default-master.tcl 16 Feb 2004 14:47:41 -0000 1.19 @@ -10,59 +10,9 @@ # fall back on defaults -if { [template::util::is_nil subnavbar_link] } { - set subnavbar_link "" -} - - if { [template::util::is_nil title] } { set title [ad_conn instance_name] } -if { [template::util::is_nil signatory] } { - set signatory [ad_system_owner] -} -if { [info exists context] } { - set context_tmp $context - unset context -} else { - set context_tmp {} -} -ad_context_bar_multirow -- $context_tmp - -# Attributes - -template::multirow create attribute key value - -# Pull out the package_id of the subsite closest to our current node -set pkg_id [site_node_closest_ancestor_package "acs-subsite"] - -#template::multirow append \ -# attribute bgcolor [ad_parameter -package_id $pkg_id bgcolor dummy "white"] -#template::multirow append \ -# attribute text [ad_parameter -package_id $pkg_id textcolor dummy "black"] - -if { [info exists prefer_text_only_p] - && $prefer_text_only_p == "f" - && [ad_graphics_site_available_p] } { - template::multirow append attribute background \ - [ad_parameter -package_id $pkg_id background dummy "/graphics/bg.gif"] -} - -# Developer-support - -if { [llength [namespace eval :: info procs ds_link]] == 1 } { - set ds_link "[ds_link]" -} else { - set ds_link "" -} - -# Curriculum bar - -if { [apm_package_installed_p curriculum] } { - set curriculum_bar_p 1 -} else { - set curriculum_bar_p 0 -}