Index: openacs-4/packages/xowiki/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/Attic/index.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/xowiki/www/index.tcl	26 Jan 2006 01:30:46 -0000	1.6
+++ openacs-4/packages/xowiki/www/index.tcl	28 Jan 2006 23:28:23 -0000	1.7
@@ -12,12 +12,23 @@
   folder_id:optional
 }
 
-set path [ad_conn path_info]
-ns_log notice "-- path=<$path>"
-
 set context [list]
 set supertype ::xowiki::Page
 
+if {![info exists folder_id] && ![info exists object_type]} {
+  set folder_id [$supertype require_folder -name xowiki]
+  set index_page [$folder_id get_package_info index_page]
+  if {$index_page ne ""} {
+    set item_id [Generic::CrItem lookup -title $index_page -parent_id $folder_id]
+    if {$item_id != 0} {
+      rp_form_put item_id $item_id
+      rp_form_put folder_id $folder_id
+      rp_internal_redirect "/packages/xowiki/www/view"
+      ad_script_abort
+    }
+  }
+}
+
 # if object_type is specified, only list entries of this type;
 # otherwise show types and subtypes of $supertype
 if {![info exists object_type]} {