Index: openacs-4/packages/xowiki/tcl/link-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/link-procs.tcl,v
diff -u -N -r1.105 -r1.106
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	20 May 2018 11:01:57 -0000	1.105
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	27 Jun 2018 12:07:09 -0000	1.106
@@ -586,10 +586,22 @@
   }
 
   #
-  # link cache
+  # Link cache - deactivated.
+  # When it will become activated again, it should get its own cache.
   #
-
   #   Class create LinkCache
+  #   LinkCache proc flush {parent_id {item_id ""}} {
+  #     if {$item_id eq ""} {
+  #       :xo::clusterwide xo::cache_flush_all xowiki_cache link-*-$name-$parent_id
+  #     } else {
+  #       foreach entry [ns_cache names xowiki_cache link-*-$parent_id] {
+  #         array set tmp [ns_cache get xowiki_cache $entry]
+  #         if {$tmp(item_id) == $item_id} {
+  #           ::xo::clusterwide ns_cache flush xowiki_cache $entry
+  #         }
+  #       }
+  #     }
+  #   }
   #   LinkCache instproc resolve {} {
   #     set key link-[:type]-[:name]-${:parent_id}
   #     while {1} {