Counting extra updates performed by Oracle & MSSQL in PERF

diff --git a/lib/dmllib.php b/lib/dmllib.php
index cc1f785a9c6d32fd6e4645df00d46813ec977795..83b8b4d26d46270b9b4ea705623e45df777a640d 100644 (file)
--- a/lib/dmllib.php
+++ b/lib/dmllib.php
@@ -1966,6 +1966,9 @@ function db_update_lobs ($table, $sqlcondition, &$clobs, &$blobs) {
 /// Update all the clobs
     if ($clobs) {
         foreach ($clobs as $key => $value) {
+        
+            if (defined('MDL_PERFDB')) { global $PERF ; $PERF->dbqueries++; }; /// Count the extra updates in PERF
+
             if (!$db->UpdateClob($CFG->prefix.$table, $key, $value, $sqlcondition)) {
                 $status = false;
                 $statement = "UpdateClob('$CFG->prefix$table', '$key', '" . substr($value, 0, 100) . "...', '$sqlcondition')";
@@ -1980,6 +1983,9 @@ function db_update_lobs ($table, $sqlcondition, &$clobs, &$blobs) {
 /// Update all the blobs
     if ($blobs) {
         foreach ($blobs as $key => $value) {
+        
+            if (defined('MDL_PERFDB')) { global $PERF ; $PERF->dbqueries++; }; /// Count the extra updates in PERF
+
             if(!$db->UpdateBlob($CFG->prefix.$table, $key, $value, $sqlcondition)) {
                 $status = false;
                 $statement = "UpdateBlob('$CFG->prefix$table', '$key', '" . substr($value, 0, 100) . "...', '$sqlcondition')";