Index: openacs-4/packages/scorm-player/tcl/scorm-player-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/scorm-player/tcl/scorm-player-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/scorm-player/tcl/scorm-player-procs.tcl	9 Jul 2010 18:44:39 -0000	1.4
+++ openacs-4/packages/scorm-player/tcl/scorm-player-procs.tcl	22 Aug 2011 23:46:40 -0000	1.5
@@ -189,3 +189,20 @@
     return $seconds
 }
 
+ad_proc scorm_player::seconds_to_interval {
+    -timestamp:required
+} {
+    Convert a database interval into a SCORM 2004 style interval.
+
+    Note: only works for hours, minutes and fractional seconds thus far.
+} {
+    if { $timestamp eq "" } {
+        return null
+    }
+    set splits [split $timestamp :]
+    if { [llength $splits] > 3 } {
+        return --code error \
+            "scorm_player::seconds_to_interval only handles hours, minutes, seconds"
+    }
+    return "PT[lindex $splits 0]H[lindex $splits 1]M[lindex $splits 2]S"
+}