Index: openacs-4/packages/dotlrn/www/switch-page.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/switch-page.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/switch-page.tcl	21 Jan 2002 09:38:16 -0000	1.1
@@ -0,0 +1,21 @@
+ad_page_contract {
+    Displays a community
+    
+    @author Ben Adida (ben@openforce.net)
+    @author yon (yon@openforce.net)
+    @creation-date 2001-10-04
+    @version $Id: switch-page.tcl,v 1.1 2002/01/21 09:38:16 oracle Exp $
+} -query {
+}
+
+
+set form [ns_getform]
+set portal_id [ns_set get $form portal_id]
+set page_id [ns_set get $form page_id]
+set return_url [ns_set get $form return_url]
+
+ad_require_permission $portal_id portal_edit_portal
+
+portal::set_current_page -portal_id $portal_id -page_id $page_id
+
+ad_returnredirect $return_url