Index: openacs-4/packages/theme-selva/www/communities.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/theme-selva/www/communities.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/theme-selva/www/communities.adp	28 Sep 2005 02:45:15 -0000	1.1
@@ -0,0 +1,35 @@
+<%
+
+    #
+    #  Copyright (C) 2001, 2002 MIT
+    #
+    #  This file is part of dotLRN.
+    #
+    #  dotLRN is free software; you can redistribute it and/or modify it under the
+    #  terms of the GNU General Public License as published by the Free Software
+    #  Foundation; either version 2 of the License, or (at your option) any later
+    #  version.
+    #
+    #  dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+    #  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+    #  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
+    #  details.
+    #
+
+%>
+
+<master>
+<property name="title">@title@</property>
+<property name="link_control_panel">0</property>
+
+
+
+<div id="left-column">
+<div class="portlet-wrapper">
+<div class="portlet-title"><span>@portlet_title@</span>
+</div> <!-- class : portlet-title -->
+<div class="portlet">
+  <include src="/packages/dotlrn/www/dotlrn-main-portlet" show_buttons_p="1" show_archived_p=0 title="Groups" referer="@dotlrn_url@/control-panel">
+ </div> <!-- class : portlet -->
+ </div> <!-- classs : portlet-wrapper -->
+</div> <!-- id : left-column -->
\ No newline at end of file
Index: openacs-4/packages/theme-selva/www/communities.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/theme-selva/www/communities.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/theme-selva/www/communities.tcl	28 Sep 2005 02:45:15 -0000	1.1
@@ -0,0 +1,49 @@
+#
+#  Copyright (C) 2001, 2002 MIT
+#
+#  This file is part of dotLRN.
+#
+#  dotLRN is free software; you can redistribute it and/or modify it under the
+#  terms of the GNU General Public License as published by the Free Software
+#  Foundation; either version 2 of the License, or (at your option) any later
+#  version.
+#
+#  dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+#  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+#  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
+#  details.
+#
+
+ad_page_contract {
+
+    My account page for a user.
+
+    @author Ben Adida (ben@openforce.net)
+    @author yon (yon@openforce.net)
+    @creation-date 2001-11-10
+    @version $Id: communities.tcl,v 1.1 2005/09/28 02:45:15 rafael Exp $
+
+} -query {
+} -properties {
+    title:onevalue
+    admin_p:onevalue
+    admin_url:onevalue
+    referer:onevalue
+}
+
+set portal_id [dotlrn::get_portal_id -user_id [ad_get_user_id]]
+set dotlrn_url [dotlrn::get_url] 
+# Make sure user is logged in
+set user_id [ad_maybe_redirect_for_registration]
+set portlet_title [_ theme-selva.Courses]
+set title [parameter::get -localize -parameter admin_page_name]
+set admin_p [dotlrn::admin_p]
+set admin_url "[dotlrn::get_url]/admin"
+set cockpit_url "[dotlrn::get_url]/admin/cockpit"
+set referer [ns_conn url]
+set admin_pretty_name [parameter::get -localize -parameter dotlrn_admin_pretty_name]
+set system_owner [ad_system_owner]
+
+set pvt_home [ad_pvt_home]
+set pvt_home_name [ad_pvt_home_name]
+