From a37829ccd35921a33c311f3b1607c977fb63d9b2 Mon Sep 17 00:00:00 2001
From: "Simon C. Kessler" <sck@aquantico.de>
Date: Thu, 9 Apr 2026 08:05:55 +0200
Subject: [PATCH] json body aufbau durch sql funktionen ersetzt.

---
 database/packages/pck_net_storage.pkb | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/database/packages/pck_net_storage.pkb b/database/packages/pck_net_storage.pkb
index cf5781d..785dc9f 100644
--- a/database/packages/pck_net_storage.pkb
+++ b/database/packages/pck_net_storage.pkb
@@ -474,9 +474,12 @@ create or replace package body pck_net_storage as
         l_new_key := l_prefix || i_new_name;
         p_assert_allowed(l_new_key);
 
-        l_body := '{"sourceName":"' || replace(replace(i_object_key, '\', '\\'), '"', '\"')
-                  || '","newName":"' || replace(replace(l_new_key,   '\', '\\'), '"', '\"')
-                  || '"}';
+        select  json_object(
+                     'sourceName' value i_object_key
+                    ,'newName'    value l_new_key
+                )
+        into    l_body
+        from    dual;
 
         l_response := f_make_request(
              i_method       => 'POST'
@@ -521,9 +524,12 @@ create or replace package body pck_net_storage as
         l_new_key := i_target_prefix || l_filename;
         p_assert_allowed(l_new_key);
 
-        l_body := '{"sourceName":"' || replace(replace(i_object_key, '\', '\\'), '"', '\"')
-                  || '","newName":"' || replace(replace(l_new_key,   '\', '\\'), '"', '\"')
-                  || '"}';
+        select  json_object(
+                     'sourceName' value i_object_key
+                    ,'newName'    value l_new_key
+                )
+        into    l_body
+        from    dual;
 
         l_response := f_make_request(
              i_method       => 'POST'