[MDL-14816] Escape special regex characters before applying perl compatible regex...

diff --git a/mod/data/lib.php b/mod/data/lib.php
index 244c736567c4dd3e851aa39637175218a87060bd..e0c89984d885b70b4584706a79c9977bc2b4b79a 100755 (executable)
--- a/mod/data/lib.php
+++ b/mod/data/lib.php
@@ -1202,7 +1202,9 @@ function data_print_preference_form($data, $perpage, $search, $sort='', $order='
 
     /// Then we generate strings to replace for normal tags
     foreach ($fields as $field) {
-        $patterns[]='/\[\['.$field->field->name.'\]\]/i';
+        $fieldname = $field->field->name;
+        $fieldname = preg_quote($fieldname, '/');
+        $patterns[] = "/\[\[$fieldname\]\]/i";
         $searchfield = data_get_field_from_id($field->field->id, $data);
         if (!empty($search_array[$field->field->id]->data)) {
             $replacement[] = $searchfield->display_search_field($search_array[$field->field->id]->data);