Index: openacs-4/packages/lorsm/www/delivery-scorm/keepalive.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-scorm/keepalive.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery-scorm/keepalive.tcl	11 Jul 2006 21:12:03 -0000	1.1.2.2
@@ -0,0 +1,6 @@
+set user_id [ad_conn user_id]
+
+if { $user_id != 0 } {
+    set user_name [person::name -person_id $user_id]
+}
+