Index: openacs-4/packages/xowiki/xowiki.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v
diff -u -r1.65 -r1.66
--- openacs-4/packages/xowiki/xowiki.info	18 Sep 2007 13:28:32 -0000	1.65
+++ openacs-4/packages/xowiki/xowiki.info	20 Sep 2007 12:19:37 -0000	1.66
@@ -8,12 +8,12 @@
     <singleton-p>f</singleton-p>
     <auto-mount>xowiki</auto-mount>
 
-    <version name="0.72" url="http://openacs.org/repository/download/apm/xowiki-0.72.apm">
-        <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann, WU Wien</owner>
+    <version name="0.73" url="http://openacs.org/repository/download/apm/xowiki-0.73.apm">
+        <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>A more generic xotcl-based wikis example with object types
 and subtypes based on the content repository (with category support)</summary>
-        <release-date>2007-09-14</release-date>
-        <vendor>Gustaf Neumann</vendor>
+        <release-date>2007-09-20</release-date>
+        <vendor>Gustaf Neumann, WU Wien</vendor>
         <description format="text/html">&lt;pre&gt;
 XoWiki is a Wiki implementation for OpenACS in XOTcl. Instead of
 trying to implement the full set of Wiki markup commands of systems
@@ -54,16 +54,16 @@
         <license>BSD-Style</license>
         <maturity>0</maturity>
 
-        <provides url="xowiki" version="0.72"/>
+        <provides url="xowiki" version="0.73"/>
         <requires url="acs-datetime" version="4.0"/>
         <requires url="categories" version="1.0d3"/>
         <requires url="file-storage" version="4.7d3"/>
         <requires url="general-comments" version="4.6.1"/>
-        <requires url="xotcl-core" version="0.71"/>
+        <requires url="xotcl-core" version="0.73"/>
 
         <callbacks>
-            <callback type="before-uninstall"  proc="::xowiki::before-uninstall"/>
             <callback type="after-install"  proc="::xowiki::after-install"/>
+            <callback type="before-uninstall"  proc="::xowiki::before-uninstall"/>
             <callback type="after-upgrade"  proc="::xowiki::upgrade_callback"/>
         </callbacks>
         <parameters>
Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.88 -r1.89
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	12 Sep 2007 18:56:10 -0000	1.88
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	20 Sep 2007 12:19:37 -0000	1.89
@@ -863,13 +863,13 @@
     my instvar folder_id id
     if {$name eq "::$folder_id"} {
       #my log "--D deleting folder object ::$folder_id"
-      ns_cache flush xotcl_object_cache ::$folder_id
-      ns_cache flush xotcl_object_type_cache item_id-of-$folder_id
-      ns_cache flush xotcl_object_type_cache root_folder-$id
+      ::xo::clusterwide ns_cache flush xotcl_object_cache ::$folder_id
+      ::xo::clusterwide ns_cache flush xotcl_object_type_cache item_id-of-$folder_id
+      ::xo::clusterwide ns_cache flush xotcl_object_type_cache root_folder-$id
       ::$folder_id destroy
     }
     set key link-*-$name-$folder_id
-    foreach n [ns_cache names xowiki_cache $key] {ns_cache flush xowiki_cache $n}
+    foreach n [ns_cache names xowiki_cache $key] {::xo::clusterwide ns_cache flush xowiki_cache $n}
   }
 
   Package instproc delete {-item_id -name} {
Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.88 -r1.89
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	3 Sep 2007 21:07:53 -0000	1.88
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	20 Sep 2007 12:19:37 -0000	1.89
@@ -287,7 +287,7 @@
     foreach entry [ns_cache names xowiki_cache link-*-$folder_id] {
       array set tmp [ns_cache get xowiki_cache $entry]
       if {$tmp(item_id) == [$data set item_id]} {
-        ns_cache flush xowiki_cache $entry
+        ::xo::clusterwide ns_cache flush xowiki_cache $entry
       }
     }
     if {![$data istype ::xowiki::Object] &&
Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.101 -r1.102
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	13 Sep 2007 20:48:20 -0000	1.101
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	20 Sep 2007 12:19:37 -0000	1.102
@@ -247,8 +247,8 @@
       # 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, FLUSH $page"
-      ns_cache flush xotcl_object_cache [self]
-      ns_cache flush xotcl_object_cache ::$folder_id
+      ::xo::clusterwide ns_cache flush xotcl_object_cache [self]
+      ::xo::clusterwide ns_cache flush xotcl_object_cache ::$folder_id
       my move ::$folder_id
       set page ::$folder_id
       #ns_log notice "--move page=$page"
@@ -854,7 +854,7 @@
     #my log "--M set_live_revision($revision_id)"
     ::xo::db::sql::content_item set_live_revision -revision_id $revision_id
     set page_id [my query_parameter "page_id"]
-    ns_cache flush xotcl_object_cache ::$item_id
+    ::xo::clusterwide ns_cache flush xotcl_object_cache ::$item_id
     ::$package_id returnredirect [my query_parameter "return_url" \
               [export_vars -base [$package_id url] {{m revisions}}]]
   }
@@ -863,8 +863,8 @@
   Page instproc delete-revision {} {
     my instvar revision_id package_id item_id 
     db_1row [my qn get_revision] "select latest_revision,live_revision from cr_items where item_id = $item_id"
-    ns_cache flush xotcl_object_cache ::$item_id
-    ns_cache flush xotcl_object_cache ::$revision_id
+    ::xo::clusterwide ns_cache flush xotcl_object_cache ::$item_id
+    ::xo::clusterwide ns_cache flush xotcl_object_cache ::$revision_id
     ::xo::db::sql::content_revision del -revision_id $revision_id
     set redirect [my query_parameter "return_url" \
                       [export_vars -base [$package_id url] {{m revisions}}]]
Index: openacs-4/packages/xowiki/www/ajax/chat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/ajax/Attic/chat.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/xowiki/www/ajax/chat.tcl	9 Apr 2006 00:07:10 -0000	1.4
+++ openacs-4/packages/xowiki/www/ajax/chat.tcl	20 Sep 2007 12:19:37 -0000	1.5
@@ -12,7 +12,7 @@
   {mode ""}
 }
 
-#ns_log notice "--c m=$m session_id=$s [clock format [lindex [split $s .] 1] -format %H:%M:%S] mode=$mode" 
+#ns_log notice "--chat m=$m session_id=$s [clock format [lindex [split $s .] 1] -format %H:%M:%S] mode=$mode" 
 ::xowiki::Chat c1 -volatile -chat_id $id -session_id $s -mode $mode
 switch -- $m {
   add_msg {
@@ -30,11 +30,11 @@
 ns_return 200 text/html "
 <HTML>
 <style type='text/css'>
-#messages .timestamp {vertical-align: top; font-size: 80%; color: grey}
-#messages .user {text-align: right; vertical-align: top; font-size: 80%; font-weight: bold; color: grey}
-#messages .message {vertical-align: top}
+#messages .timestamp {vertical-align: top; font-size: 80%; color: #717171;}
+#messages .user {text-align: right; vertical-align: top; font-size: 80%; font-weight: bold; color: #717171;}
+#messages .message {vertical-align: top;}
 </style>
 <body>
 <table id='messages'><tbody>$_</tbody></table>
 </body>
-</HTML>"
\ No newline at end of file
+</HTML>"