Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -r1.8.2.2 -r1.8.2.3
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	13 Mar 2002 18:58:06 -0000	1.8.2.2
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	13 Mar 2002 19:06:30 -0000	1.8.2.3
@@ -298,6 +298,16 @@
     } {
 	return ""
     }
+
+    set new_last_hit [clock seconds]
+
+    db_dml update_last_hit_dml {
+        update sec_session_properties
+           set last_hit = :new_last_hit
+         where session_id = :id and
+               property_name = :name
+    }
+
     return [list $property_value $secure_p]
 }