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. + # + +%> + + +@title@ + +1 +0 + +<% set dotlrn_url [dotlrn::get_url] %> + + + +
+ +
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