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.3 -r1.4
--- openacs-4/packages/scorm-player/tcl/scorm-player-procs.tcl	8 Jul 2010 01:14:22 -0000	1.3
+++ openacs-4/packages/scorm-player/tcl/scorm-player-procs.tcl	9 Jul 2010 18:44:39 -0000	1.4
@@ -162,7 +162,7 @@
     set index 1
     if { [string first P $timestamp] == 0 } {
         foreach delimiter {Y M D} {
-            if { [regexp "(\[\\d\]+)$delimiter" [string range $timestamp $index end] match digits] } {
+            if { [regexp "^(\[\\d\]+)$delimiter" [string range $timestamp $index end] match digits] } {
                 incr seconds [expr {[lindex $multipliers 0] * $digits}]
                 incr index [string length $match]
             }
@@ -171,13 +171,13 @@
         if { [string range $timestamp $index $index] eq "T" } {
             incr index
             foreach delimiter {H M} {
-                if { [regexp "(\[\\d\]+)$delimiter" [string range $timestamp $index end] match digits] } {
+                if { [regexp "^(\[\\d\]+)$delimiter" [string range $timestamp $index end] match digits] } {
                     incr seconds [expr {[lindex $multipliers 0] * $digits}]
                     incr index [string length $match]
                 }
                 set multipliers [lrange $multipliers 1 end]
             }
-            if { [regexp {([\d]+[\.]?[\d]*)S} [string range $timestamp $index end] match digits] } {
+            if { [regexp {^([\d]+[\.]?[\d]*)S} [string range $timestamp $index end] match digits] } {
                 incr seconds [expr {round($digits)}]
                 incr index [string length $match]
             }