From 88cd967851298fde4172ccf4e0eb6d1668bfd44a Mon Sep 17 00:00:00 2001
From: stronk7 <stronk7>
Date: Thu, 9 Aug 2007 18:17:48 +0000
Subject: [PATCH] Fixed insert/update of Oracle xLOBs. Credit goes to Rita
 Scholes. MDL-9835

Merged from MOODLE_18_STABLE
---
 lib/dmllib.php | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/lib/dmllib.php b/lib/dmllib.php
index 0da3d0716d..56a2120059 100644
--- a/lib/dmllib.php
+++ b/lib/dmllib.php
@@ -2303,6 +2303,11 @@ function db_update_lobs ($table, $sqlcondition, &$clobs, &$blobs) {
 
             if (defined('MDL_PERFDB')) { global $PERF ; $PERF->dbqueries++; }; /// Count the extra updates in PERF
 
+        /// Oracle CLOBs doesn't like quoted strings (are inserted via prepared statemets)
+            if ($CFG->dbfamily == 'oracle') {
+                $value = stripslashes_safe($value);
+            }
+
             if (!$db->UpdateClob($CFG->prefix.$table, $key, $value, $sqlcondition)) {
                 $status = false;
                 $statement = "UpdateClob('$CFG->prefix$table', '$key', '" . substr($value, 0, 100) . "...', '$sqlcondition')";
@@ -2320,6 +2325,11 @@ function db_update_lobs ($table, $sqlcondition, &$clobs, &$blobs) {
 
             if (defined('MDL_PERFDB')) { global $PERF ; $PERF->dbqueries++; }; /// Count the extra updates in PERF
 
+        /// Oracle BLOBs doesn't like quoted strings (are inserted via prepared statemets)
+            if ($CFG->dbfamily == 'oracle') {
+                $value = stripslashes_safe($value);
+            }
+
             if(!$db->UpdateBlob($CFG->prefix.$table, $key, $value, $sqlcondition)) {
                 $status = false;
                 $statement = "UpdateBlob('$CFG->prefix$table', '$key', '" . substr($value, 0, 100) . "...', '$sqlcondition')";
-- 
2.39.5