Zooflow: Clear cache for DocumentResultList

GUIs.Common/DocumentResultList/Loader.vb

@@ -29,10 +29,20 @@ Namespace DocumentResultList
             Cache = New Cache(pLogConfig, 104_900_000)
         End Sub
 
+        ''' <summary>
+        ''' Removes a Document from the cache
+        ''' </summary>
         Public Sub Invalidate(pDocument As Document)
             Cache.Remove(pDocument)
         End Sub
 
+        ''' <summary>
+        ''' Clears the cache completely
+        ''' </summary>
+        Public Sub ClearCache()
+            Cache.Clear()
+        End Sub
+
         Public Function Load(pObjectId As Long, pFullPath As String, Optional pForce As Boolean = False) As Document
             Dim oDocument As Document = Nothing
 

GUIs.Common/frmDocumentResultList.vb

@@ -381,8 +381,13 @@ Public Class frmDocumentResultList
         Else
             _IsLoading = True
             Try
+                ' Save the new results
                 _ResultLists = pResults
 
+                ' Remove the current document from 
+                Documentloader.ClearCache()
+
+                ' Update the grid
                 UpdateTotalResults()
                 UpdateGridData()