in ut_annotation log is called with clob

Pazus · Pazus · commit c485d4e7b542 · 2017-01-07T16:01:38.000+03:00
diff --git a/source/core/ut_utils.pkb b/source/core/ut_utils.pkb
@@ -50,7 +50,15 @@ create or replace package body ut_utils is
       null;
     $end
   end;
-
+  
+  procedure debug_log(a_message clob) is
+  begin
+    $if $$ut_trace $then
+      dbms_output.put_line(a_message);
+    $else
+      null;
+    $end
+  end;
 
   function to_string(a_value varchar2) return varchar2 is
     l_len integer := coalesce(length(a_value),0);
diff --git a/source/core/ut_utils.pks b/source/core/ut_utils.pks
@@ -78,6 +78,7 @@ create or replace package ut_utils authid definer is
   function gen_savepoint_name return varchar2;
 
   procedure debug_log(a_message varchar2);
+  procedure debug_log(a_message clob);
 
   function to_string(a_value varchar2) return varchar2;
 
