Index: openacs-4/packages/scorm-core/tcl/scorm-core-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/scorm-core/tcl/scorm-core-procs.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/scorm-core/tcl/scorm-core-procs.tcl 8 Jul 2010 01:14:22 -0000 1.4 +++ openacs-4/packages/scorm-core/tcl/scorm-core-procs.tcl 25 Jul 2011 19:36:23 -0000 1.5 @@ -756,10 +756,15 @@ set objective(mObjID) [$node getAttribute "objectiveID"] } if { [$node hasAttribute "satisfiedByMeasure"] } { - set objective(mSatisfiedByMeasure) [$node getAttribute "objectiveID"] + set objective(mSatisfiedByMeasure) \ + [scorm_core::rte_activity_tree::convert_to_bool \ + [$node getAttribute "satisfiedByMeasure"]] } - if { [$node hasAttribute "minNormalizedMeasure"] } { - set objective(mMinMeasure) [$node getAttribute "objectiveID"] + set mnms [$node getElementsByTagName "imsss:minNormalizedMeasure"] + if { [llength $mnms] == 1 } { + set objective(mMinMeasure) [$mnms text] + } elseif { [llength $mnms] > 1 } { + return -code error "More than one minNormalizedMeasure element detected for seq object" } set maps [list]