Index: openacs-4/packages/cms/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/index.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/cms/www/index.tcl	16 Aug 2002 00:20:17 -0000	1.3
+++ openacs-4/packages/cms/www/index.tcl	16 Nov 2004 22:32:47 -0000	1.4
@@ -1,9 +1,11 @@
-# Get the name for the current user
+ad_page_contract {
 
-set user_id [User::getID]
+    @author Michael Steigman (michael@steigman.net)
+    @creation-date October 2004
+} {
+    {module "modules/workspace/index"}
+}
 
-if { ! $user_id } { template::forward "signin" }
+set user_id [auth::require_login]
 
-set name [db_string get_name ""]
-
-ns_set put [ns_conn outputheaders] Pragma "No-cache"
+ns_returnredirect $module
\ No newline at end of file