Index: openacs-4/packages/xowiki/www/edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/Attic/edit.tcl,v diff -u -N -r1.12 -r1.13 --- openacs-4/packages/xowiki/www/edit.tcl 3 May 2006 12:03:23 -0000 1.12 +++ openacs-4/packages/xowiki/www/edit.tcl 19 May 2006 22:21:30 -0000 1.13 @@ -29,16 +29,17 @@ if {$object_type eq "::xowiki::Object" && [$page set name] eq "::$folder_id"} { # if we edit the folder object, we have to do some extra magic here, since # the folder object has slightly different naming conventions. - #ns_log notice "--editing folder object ::$folder_id" + #ns_log notice "--editing folder object ::$folder_id, FLUSH $page" ns_cache flush xotcl_object_cache $page + ns_cache flush xotcl_object_cache ::$folder_id $page move ::$folder_id set page ::$folder_id $page set package_id [ad_conn package_id] #ns_log notice "--move page=$page" } else { - $page volatile ::xowiki::Page require_folder_object -folder_id $folder_id -package_id [ad_conn package_id] } + $page volatile } else { set page [$object_type new -volatile] set folder_id [::xowiki::Page require_folder -name xowiki]