dynamic document creation system updated

zekzekus · Dec 30, 2011 · 758ae38 · 758ae38
1 parent afd924a
commit 758ae38
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 18 deletions.
diff --git a/CDB_SQL.pkb b/CDB_SQL.pkb
@@ -115,40 +115,40 @@
 
             if (l_val is null) then
               if (null_as_empty_string) then
-                inner_obj.put(l_dtbl(i).col_name, ''); --treatet as emptystring?
+                inner_obj.put(lower(l_dtbl(i).col_name), ''); --treatet as emptystring?
               else
-                inner_obj.put(l_dtbl(i).col_name, json_value.makenull);   --null
+                inner_obj.put(lower(l_dtbl(i).col_name), json_value.makenull);   --null
               end if;
             else
-              inner_obj.put(l_dtbl(i).col_name, json_value(l_val));       --null
+              inner_obj.put(lower(l_dtbl(i).col_name), json_value(l_val));       --null
             end if;
-          --dbms_output.put_line(l_dtbl(i).col_name||' --> '||l_val||'varchar2' ||l_dtbl(i).col_type);
+          --dbms_output.put_line(lower(l_dtbl(i).col_name)||' --> '||l_val||'varchar2' ||l_dtbl(i).col_type);
           --handling number types
           when l_dtbl(i).col_type = 2 then                             -- number
             dbms_sql.column_value(l_cur, i, l_val);
             conv := l_val;
-            inner_obj.put(l_dtbl(i).col_name, conv);
-          -- dbms_output.put_line(l_dtbl(i).col_name||' --> '||l_val||'number ' ||l_dtbl(i).col_type);
+            inner_obj.put(lower(l_dtbl(i).col_name), conv);
+          -- dbms_output.put_line(lower(l_dtbl(i).col_name)||' --> '||l_val||'number ' ||l_dtbl(i).col_type);
           when l_dtbl(i).col_type = 12 then                              -- date
             if (include_dates) then
               dbms_sql.column_value(l_cur, i, read_date);
               inner_obj.
-               put(l_dtbl(i).col_name, json_ext.to_json_value(read_date));
+               put(lower(l_dtbl(i).col_name), json_ext.to_json_value(read_date));
             end if;
-          --dbms_output.put_line(l_dtbl(i).col_name||' --> '||l_val||'date ' ||l_dtbl(i).col_type);
+          --dbms_output.put_line(lower(l_dtbl(i).col_name)||' --> '||l_val||'date ' ||l_dtbl(i).col_type);
           when l_dtbl(i).col_type = 112 then                              --clob
             if (include_clobs) then
               dbms_sql.column_value(l_cur, i, read_clob);
-              inner_obj.put(l_dtbl(i).col_name, json_value(read_clob));
+              inner_obj.put(lower(l_dtbl(i).col_name), json_value(read_clob));
             end if;
           when l_dtbl(i).col_type = 113 then                              --blob
             if (include_blobs) then
               dbms_sql.column_value(l_cur, i, read_blob);
 
               if (dbms_lob.getlength(read_blob) > 0) then
-                inner_obj.put(l_dtbl(i).col_name, json_ext.encode(read_blob));
+                inner_obj.put(lower(l_dtbl(i).col_name), json_ext.encode(read_blob));
               else
-                inner_obj.put(l_dtbl(i).col_name, json_value.makenull);
+                inner_obj.put(lower(l_dtbl(i).col_name), json_value.makenull);
               end if;
             end if;
           else

diff --git a/test_sql.sql b/test_sql.sql
@@ -1,4 +1,4 @@
-create or replace procedure cdb_test_sql is
+create or replace procedure cdb_test_sql_1 is
   conn    cdb_connection;
   dlist   cdb_sql.t_doc_list;
 begin
@@ -19,15 +19,12 @@ begin
       password   => 'admin');
   conn.print();
 
-  dlist :=
-    cdb_sql.
-     executeList(
-      'select * from tmp001');
+  dlist := cdb_sql.executeList('select * from tmp001');
 
   for i in dlist.first .. dlist.last loop
     dlist(i).conn := conn;
-    dlist(i).set_id(dlist(i).get('BARCODE').get_number());
-    dlist(i).put('type_', 'barkod');
+    dlist(i).set_id(dlist(i).get('barcode').get_number());
+    dlist(i).put('type_', 'item');
     dlist(i).save();
   end loop;
 end;