Index: openacs-4/packages/logger/tcl/entry-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/entry-procs.tcl,v
diff -u -N -r1.3.8.5 -r1.3.8.6
--- openacs-4/packages/logger/tcl/entry-procs.tcl	9 May 2005 14:49:37 -0000	1.3.8.5
+++ openacs-4/packages/logger/tcl/entry-procs.tcl	27 Jun 2005 20:38:10 -0000	1.3.8.6
@@ -107,8 +107,15 @@
             pm::project::compute_status $project_item_id
         }
     }
-
-
+    
+    # Check cache, expire if it is a new user
+    if {![regexp [ad_conn user_id] [util_memoize [list logger::package::select_users_not_cached -package_id [ad_conn package_id]] 5600] match]} {
+        ns_log notice "Flushed Cache"
+        util_memoize_flush [list logger::package::select_users_not_cached -package_id [ad_conn package_id]]
+    } else {
+        ns_log notice "did not flush cache"
+    }
+    
     return $entry_id
 }