Edit D:\rfid\apache-tomcat-8.5.32\webapps\libsystem\WEB-INF\classes\db-update\perallocation2json.SQL

CREATE OR REPLACE FUNCTION perallocation2json(JSON IN VARCHAR2)
RETURN VARCHAR2
IS
In_JSON VARCHAR2(4096);
v_JSON VARCHAR2(4096) DEFAULT '';
v_J1 VARCHAR2(4096);
v_J2 VARCHAR2(4096);
v_J3 VARCHAR2(4096);
v_J4 VARCHAR2(4096);
v_split VARCHAR2(10) DEFAULT ':';
v_delimiter VARCHAR2(10) DEFAULT ',';
len NUMBER(10) default 0;
place NUMBER(10) default 2;
v_index NUMBER(10) default 0;
v_start NUMBER(10) default 1;
 v_length   NUMBER := LENGTH(JSON);
BEGIN

WHILE(v_start <= v_length)
    LOOP
        v_index := INSTR(JSON, v_delimiter, v_start);

IF v_index = 0
        THEN
        In_JSON :=SUBSTR(JSON,v_start);
            v_start := v_length + 1;
        ELSE

In_JSON :=SUBSTR(JSON,v_start,v_index - v_start);
            v_start := v_index + 1;
        END IF;
        In_JSON := RTRIM(LTRIM(In_JSON));
   place := INSTR(In_JSON,v_split,1,1);
   len := place -1 ;
   v_J1 := SUBSTR(In_JSON,1,len);
   len := INSTR(In_JSON,v_split,1,2) - place -1-0;
   v_J2 := SUBSTR(In_JSON,place+1,len);
   place := INSTR(In_JSON,v_split,1,2);

v_J3 := SUBSTR(In_JSON,place+1);
   if LENGTH(v_JSON)>0 then
   v_JSON := v_JSON||',{"libcode":"' || v_J1 || '","location":"' || v_J2 || '","copies":"' || v_J3 || '","shelfno":""}';
   else
   v_JSON := '{"libcode":"' || v_J1 || '","location":"' || v_J2 || '","copies":"' || v_J3 || '","shelfno":""}';
   end if;
    END LOOP;

RETURN '['||v_JSON||']';

END perallocation2json;

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de