Index: openacs-4/packages/theme-selva/www/selva-lrn-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/theme-selva/www/selva-lrn-master.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/theme-selva/www/selva-lrn-master.tcl 26 Sep 2005 04:37:06 -0000 1.1
+++ openacs-4/packages/theme-selva/www/selva-lrn-master.tcl 26 Sep 2005 07:49:41 -0000 1.2
@@ -1,5 +1,6 @@
# $Id$
+#append url [ad_url] [ad_return_url]
set user_id [ad_get_user_id]
set community_id [dotlrn_community::get_community_id]
set dotlrn_url [dotlrn::get_url]
@@ -23,7 +24,7 @@
set header_img_file "[acs_root_dir]/packages/dotlrn/www/resources/logo"
set header_img_alt_text "Header Logo"
-set extra_spaces ""
+set extra_spaces ""
set td_align "align=\"center\" valign=\"top\""
if {[dotlrn::user_p -user_id $user_id]} {
@@ -268,7 +269,7 @@
set youarehere "[_ theme-selva.MySpace]"
}
- set extra_spaces ""
+ set extra_spaces ""
#set subnavbar [selva::portal_navbar]
set subnavbar [selva::portal_subnavbar \
-user_id $user_id \
@@ -306,7 +307,7 @@
# Add safety code to test that the element exists '
set header_stuff "$header_stuff
-