Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	24 Feb 2006 14:33:58 -0000	1.15
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	15 Apr 2006 23:25:29 -0000	1.16
@@ -170,6 +170,7 @@
     {-parent_id -100} 
     -package_id 
     -name
+    {-store_folder_id:boolean true}
   } {
     Get folder_id for a community id or the actual package.
     If everything fails, return -100
@@ -209,7 +210,7 @@
       return $folder_id
     }]
     
-    my require_folder_object -folder_id $folder_id -package_id $package_id
+    my require_folder_object -folder_id $folder_id -package_id $package_id -store_folder_id $store_folder_id
     return $folder_id
   }
 
@@ -738,7 +739,7 @@
   Form instproc after_submit {item_id} {
     my instvar data
     set link [my submit_link]
-    if {$link ne "." && ![string match {*[?]*} $link]} {
+    if {$link eq "view"} {
       set link [export_vars -base $link {item_id}]
     }
     ns_log notice "-- redirect to $link // [string match *\?* $link]"