Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/xotcl-core/xotcl-core.info	10 Apr 2006 10:22:12 -0000	1.12
+++ openacs-4/packages/xotcl-core/xotcl-core.info	15 Apr 2006 23:25:29 -0000	1.13
@@ -8,10 +8,10 @@
     <singleton-p>t</singleton-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.36" url="http://media.wu-wien.ac.at/download/xotcl-core-0.36.apm">
+    <version name="0.37" url="http://media.wu-wien.ac.at/download/xotcl-core-0.37.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)</summary>
-        <release-date>2006-02-22</release-date>
+        <release-date>2006-04-16</release-date>
         <description format="text/html">This component contains some core functionality for OACS
 applications using XOTcl. It includes
 XOTcl thread handling for OACS (supporting persistent and
@@ -25,7 +25,7 @@
 when components are reloaded. 0.23 contains a major overhaul of the Generic classes. Object preliminary object layer for content repository, oo templating. 0.36 brings caching support for cr-items</description>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.36"/>
+        <provides url="xotcl-core" version="0.37"/>
 
         <callbacks>
             <callback type="before-install"  proc="::xotcl::before_install_callback"/>
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]"