Index: openacs-4/packages/theme-selva/www/selva-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/theme-selva/www/selva-master.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/theme-selva/www/selva-master.tcl 27 Jul 2005 11:54:04 -0000 1.4
+++ openacs-4/packages/theme-selva/www/selva-master.tcl 27 Jul 2005 20:10:03 -0000 1.5
@@ -41,6 +41,7 @@
# Author: Arjun Sanyal (arjun@openforce.net), yon@openforce.net
#
# $Id$
+
set user_id [ad_get_user_id]
set community_id [dotlrn_community::get_community_id]
set dotlrn_url [dotlrn::get_url]
@@ -49,8 +50,6 @@
set in_dotlrn_p [expr [string match "[dotlrn::get_url]/*" [ad_conn url]]]
-
-
#Scope Related graphics/css parameters
# Set everything for user level scope as default then modify it later as we refine the scope.
set scope_name "user"
@@ -312,6 +311,7 @@
}
set extra_spaces ""
#set subnavbar [selva::portal_navbar]
+
if {$in_dotlrn_p == 1} {
set navbar "