Index: openacs-4/packages/dotlrn/www/control-panel.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/control-panel.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/control-panel.adp	13 Jul 2002 19:38:59 -0000	1.1
@@ -0,0 +1,49 @@
+<%
+
+    #
+    #  Copyright (C) 2001, 2002 OpenForce, Inc.
+    #
+    #  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 src="dotlrn-master">
+<property name="title">@title@</property>
+
+<property name="link_all">1</property>
+<property name="link_control_panel">0</property>
+
+<% set dotlrn_url [dotlrn::get_url] %>
+
+<ul>
+  <li><a href="@dotlrn_url@/help">Help</a></li>
+  <li>
+    <a href="/user/basic-info-update?return_url=@referer@">Edit My Personal Information</a>
+    <br>
+    <small>
+      (What others see about me:
+      <%= [acs_community_member_link -user_id $user_id -label "[ad_url][acs_community_member_url -user_id $user_id]"] %>)
+     </small>
+  </li>
+  <li><a href="/user/password-update?return_url=@referer@">Change My Password</a></li>
+  <li><a href="applets/bboard/alerts">Edit My Bulletin Board Email Alerts</a></li>
+  <li><a href="configure">Customize Layout</a></li>
+<if @admin_p@>
+  <li><a href="@admin_url@">@admin_pretty_name@</a></li>
+</if>
+</ul>
+
+<blockquote>
+  <include src="my-communities" title="Groups" referer="control_panel">
+</blockquote>
Index: openacs-4/packages/dotlrn/www/control-panel.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/control-panel.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/control-panel.tcl	13 Jul 2002 19:38:59 -0000	1.1
@@ -0,0 +1,45 @@
+#
+#  Copyright (C) 2001, 2002 OpenForce, Inc.
+#
+#  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 {
+
+    Control panel page for user's portal
+
+    @author Ben Adida (ben@openforce.net)
+    @author yon (yon@openforce.net)
+    @creation-date 2001-11-10
+    @version $Id: control-panel.tcl,v 1.1 2002/07/13 19:38:59 arjun 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]]
+
+# Make sure user is logged in
+set user_id [ad_maybe_redirect_for_registration]
+
+set title "Preferences"
+set admin_p [dotlrn::admin_p]
+set admin_url "[dotlrn::get_url]/admin"
+set referer [ns_conn url]
+set admin_pretty_name [parameter::get -parameter dotlrn_admin_pretty_name]
+
+ad_return_template