From b7237c1ed6f2b02004ca27cb8b9f561a1784b388 Mon Sep 17 00:00:00 2001
From: stronk7 <stronk7>
Date: Fri, 17 Dec 2004 14:52:06 +0000
Subject: [PATCH] Changes since 1.13.2.4 upto 1.13.2.9 in MOODLE_14_STABLE
 applied to HEAD!!!

Some validation code has changed and I've leave it commented
exactly as it's in MOODLE_14_STABLE. Not sure why!!
---
 mod/scorm/lib.php | 46 ++++++++++++++++++++++++++++++----------------
 1 file changed, 30 insertions(+), 16 deletions(-)

diff --git a/mod/scorm/lib.php b/mod/scorm/lib.php
index 8b2a6bc559..152efc1bf6 100755
--- a/mod/scorm/lib.php
+++ b/mod/scorm/lib.php
@@ -19,12 +19,14 @@ if (!isset($CFG->scorm_popup)) {
 }
 if (!isset($CFG->scorm_validate)) {
     $scorm_validate = 'none';
-    if (extension_loaded('domxml')) {
-        $scorm_validate = 'domxml';
-    }
-    if (version_compare(phpversion(),'5.0.0','>=')) {
-        $scorm_validate = 'php5';
-    }
+    //I've commented this out for Moodle 1.4, as I've seen errors in 
+    //SCORM packages even though the actual package worked fine. -- Martin Dougiamas
+    //if (extension_loaded('domxml') && version_compare(phpversion(),'5.0.0','<')) {
+    //    $scorm_validate = 'domxml';
+    //}
+    //if (version_compare(phpversion(),'5.0.0','>=')) {
+    //    $scorm_validate = 'php5';
+    //}
     set_config('scorm_validate', $scorm_validate);
 }
 
@@ -366,15 +368,12 @@ function scorm_validate($manifest)
     }
 }
 
-function scorm_delete_files($directory)
-{
-    if (is_dir($directory))
-    {
-        $handle=opendir($directory);
-        while (($file = readdir($handle)) != '')
-        {
-            if ($file != '.' && $file != '..')
-            {
+function scorm_delete_files($directory) {
+    if (is_dir($directory)) {
+        $files=scorm_scandir($directory);
+        //print_r($files);
+        foreach($files as $file) {
+            if (($file != '.') && ($file != '..')) {
             	if (!is_dir($directory.'/'.$file)) {
             	    //chmod($directory.'/'.$file,0777);
                     unlink($directory.'/'.$file);
@@ -387,6 +386,21 @@ function scorm_delete_files($directory)
     }
 }
 
+function scorm_scandir($directory) {
+    if (version_compare(phpversion(),'5.0.0','>=')) {
+   	return scandir($directory);
+    } else {
+        $files = null;
+	if ($dh = opendir($directory)) {
+	    while (($file = readdir($dh)) !== false) {
+           	$files[] = $file;
+	    }
+	    closedir($dh);
+	}
+	return $files;
+    }
+}
+
 function scorm_startElement($parser, $name, $attrs) {
 
     global $scoes,$i,$resources,$parent,$level,$organization,$manifest,$defaultorg;
@@ -465,7 +479,7 @@ function scorm_endElement($parser, $name) {
 
 function scorm_characterData($parser, $data) {
     global $datacontent;
-    $datacontent = $data;
+    $datacontent = utf8_decode($data);
 }
 
 function scorm_parse($basedir,$file,$scorm_id) {
-- 
2.39.5