Index: openacs-4/www/default-master.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/www/default-master.adp,v diff -u -r1.23 -r1.24 --- openacs-4/www/default-master.adp 8 Feb 2004 18:38:40 -0000 1.23 +++ openacs-4/www/default-master.adp 16 Feb 2004 14:47:41 -0000 1.24 @@ -1,44 +1,17 @@ @title;noquote@ @header_stuff;noquote@ + @context;noquote@ + @context_bar;noquote@ @focus;noquote@ @doc_type;noquote@ -
- - 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 -} Index: openacs-4/www/site-master.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/www/site-master.adp,v diff -u -r1.15 -r1.16 --- openacs-4/www/site-master.adp 29 Jan 2004 15:08:13 -0000 1.15 +++ openacs-4/www/site-master.adp 16 Feb 2004 14:47:41 -0000 1.16 @@ -16,43 +16,48 @@ - - - + - - - - - -
- @system_name@ - - - #acs-subsite.Welcome_user# - - - #acs-subsite.Not_logged_in# - - - @num_users_online@ userusers online - +
+ +
+ +
+ +
+ +
+ + #acs-subsite.Welcome_user# + + + #acs-subsite.Not_logged_in# + +
+ + + -
+
  • @user_messages.message;noquote@
  • @@ -61,18 +66,47 @@
+
+ + + + + + + + + +
+
- -

Change Locale - - - - Install Locales - - +

-

+

Index: openacs-4/www/site-master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/www/site-master.tcl,v diff -u -r1.15 -r1.16 --- openacs-4/www/site-master.tcl 29 Jan 2004 15:07:48 -0000 1.15 +++ openacs-4/www/site-master.tcl 16 Feb 2004 14:47:41 -0000 1.16 @@ -12,6 +12,10 @@ set header_stuff {} } +if { [template::util::is_nil subnavbar_link] } { + set subnavbar_link "" +} + # This will set 'sections' and 'subsections' multirows subsite::define_pageflow -section $section subsite::get_section_info -array section_info @@ -28,6 +32,9 @@ # Get system name set system_name [ad_system_name] set system_url [ad_url] +if { [string equal [ad_conn url] "/"] } { + set system_url "" +} # Get user information set sw_admin_p 0 @@ -67,6 +74,14 @@ set login_url [ad_get_login_url -return] } +# Context bar +if { [info exists context] } { + set context_tmp $context + unset context +} else { + set context_tmp {} +} +ad_context_bar_multirow -- $context_tmp # change locale @@ -76,16 +91,16 @@ "/acs-lang/?[export_vars { { package_id "[ad_conn package_id]" } }]" } - - # Curriculum bar set curriculum_bar_p [llength [site_node::get_children -all -filters { package_key "curriculum" } -node_id $subsite_node_id]] +# Who's Online set num_users_online [lc_numeric [whos_online::num_users]] set whos_online_url "[subsite::get_element -element url]shared/whos-online" + #---------------------------------------------------------------------- # Display user messages #----------------------------------------------------------------------