question import/export: MDL-20299 fix regression I introduced yesterday in hotpot...

diff --git a/question/format/hotpot/format.php b/question/format/hotpot/format.php
index 0ac6e6b21646b1e3039634c4188bd3376ba31aa3..68d9afb2b246992780029b5a1b9fe2ceb37fdf2f 100644 (file)
--- a/question/format/hotpot/format.php
+++ b/question/format/hotpot/format.php
@@ -508,3 +508,29 @@ class qformat_hotpot extends qformat_default {
         return $str;
     }
 } // end class
+
+function hotpot_convert_relative_urls($str, $baseurl, $filename) {
+    $tagopen = '(?:(<)|(&lt;)|(&amp;#x003C;))'; // left angle bracket
+    $tagclose = '(?(2)>|(?(3)&gt;|(?(4)&amp;#x003E;)))'; //  right angle bracket (to match left angle bracket)
+
+    $space = '\s+'; // at least one space
+    $anychar = '(?:[^>]*?)'; // any character
+
+    $quoteopen = '("|&quot;|&amp;quot;)'; // open quote
+    $quoteclose = '\\5'; //  close quote (to match open quote)
+
+    $replace = "hotpot_convert_relative_url('".$baseurl."', '".$filename."', '\\1', '\\6', '\\7')";
+
+    $tags = array('script'=>'src', 'link'=>'href', 'a'=>'href','img'=>'src','param'=>'value', 'object'=>'data', 'embed'=>'src');
+    foreach ($tags as $tag=>$attribute) {
+        if ($tag=='param') {
+            $url = '\S+?\.\S+?'; // must include a filename and have no spaces
+        } else {
+            $url = '.*?';
+        }
+        $search = "%($tagopen$tag$space$anychar$attribute=$quoteopen)($url)($quoteclose$anychar$tagclose)%ise";
+        $str = preg_replace($search, $replace, $str);
+    }
+
+    return $str;
+}