DBMS_XMLGEN, Carriage Returns XSLT to HTML

Question

Hi,
I am facing an issue using the DBMS_XMLGEN. I have written a function (see under) that receive A SYS_REFCURSOR and return as a CLOB the XML with eventually transformed using a CLOB containing the passed XSLT code.
The goal is to reuse several time this functions being called by other function/procedure (see under a sample of one of my procedure) of my package. Those procure/function being called by the front-end (Cold fusion) to retrieve and output the results. My purpose is to make independent of the front end solution the output generation. Any language that can call an Oracle Procedure/Function would be able to process the result with or without a XSLT.
The issue is the CRLF (chr(10)+chr(13) seems to be lost in the process of the varchar2/clob data type used to generate the XML.
A solution, is to modify the select statement and adding when necessary select ... replace(thefield,chr(10),'<br/>') thefield ... but this would request a post processing which I am trying to avoid.
FUNCTION GEN_SYSTEM_GENEXML(
    INQUERYSTRING IN SYS_REFCURSOR,
    inStartRow    IN NUMBER,
    inMaxRows     IN NUMBER,
    inXsltString  IN CLOB)
  RETURN CLOB
AS
  LHTMLOUTPUT XMLTYPE;
  xmlResult CLOB;
  CTX DBMS_XMLGEN.CTXHANDLE;
  lXMLData XMLType;
BEGIN
  CTX := DBMS_XMLGEN.NEWCONTEXT(INQUERYSTRING);
  dbms_xmlgen.setNullHandling(ctx, 2);
  dbms_xmlgen.setIndentationWidth(ctx, 0);
  dbms_xmlgen.setRowSetTag(ctx, 'ROOT');
  dbms_xmlgen.setRowTag(ctx, 'item');
  dbms_xmlgen.setskiprows(ctx,inStartRow);
  DBMS_XMLGEN.SETMAXROWS(CTX,INMAXROWS);
  IF LENGTH(INXSLTSTRING) <> 0 AND INXSLTSTRING <>'[none]' THEN
    LXMLDATA              := DBMS_XMLGEN.GETXMLTYPE(CTX,DBMS_XMLGEN.NONE);
    LHTMLOUTPUT           :=LXMLDATA.TRANSFORM(XMLTYPE(INXSLTSTRING));
  ELSE
    xmlResult := dbms_xmlgen.getxml(ctx);
  END IF;
  DBMS_XMLGEN.CLOSECONTEXT(CTX);
  IF LENGTH(INXSLTSTRING) <> 0 AND INXSLTSTRING <>'[none]' THEN
    RETURN LHTMLOUTPUT.GETCLOBVAL();
  ELSE
    RETURN XMLRESULT;
  END IF;
END gen_system_genexml;
PROCEDURE PRC_GET_CF_CNS(
    inadonis IN NUMBER,
    inyear   IN NUMBER,
    INXSLT   IN CLOB,
    OUTRETURNED OUT CLOB)
IS
  C1 SYS_REFCURSOR;
BEGIN
  CASE INYEAR
  WHEN 2008 THEN
    OPEN C1 FOR SELECT ADONIS,
    CRIT_AA_MARKS,
    CRIT_AA_COMMENTS
  END CASE;
  OUTRETURNED :=GEN_SYSTEM_GENEXML(C1,0,10000,INXSLT);
END PRC_GET_CF_CNS;

Answer 1

(I mix my accounts, I posted with an outdated email)
Oracle Database 10g Enterprise Edition Release 10.2.0.1.0 - Prod
PL/SQL Release 10.2.0.1.0 - Production
"CORE     10.2.0.1.0     Production"
TNS for 32-bit Windows: Version 10.2.0.1.0 - Production
NLSRTL Version 10.2.0.1.0 - ProductionIf I run without XLST I get (DBMSOUTPUT in SQLDevelopper) the CR/LF
DECLARE
  INADONIS NUMBER;
  INYEAR NUMBER;
  INXSLT CLOB;
  OUTRETURNED CLOB;
BEGIN
  INADONIS := 100858;
  INYEAR := 2010;
  INXSLT := '[none]';
  PKG_GENERAL.PRC_GET_CF_CNS(
    INADONIS => INADONIS,
    INYEAR => INYEAR,
    INXSLT => INXSLT,
    OUTRETURNED => OUTRETURNED
  DBMS_OUTPUT.PUT_LINE('OUTRETURNED = ' || OUTRETURNED);
END;if I replace the '[none]' by the xslt string it looks, still in the dbms_output, being there...
if I
DBMS_OUTPUT.PUT_LINE('OUTRETURNED = ' || replace(OUTRETURNED,chr(10),'<br/>'));the result is broken...
For the moment, I do this to avoid post-processing Cold Fusion
FUNCTION GEN_SYSTEM_GENEXML(
    INQUERYSTRING IN SYS_REFCURSOR,
    inStartRow    IN NUMBER,
    inMaxRows     IN NUMBER,
    inXsltString  IN CLOB)
  RETURN CLOB
AS
  LHTMLOUTPUT XMLTYPE;
  xmlResult CLOB;
  CTX DBMS_XMLGEN.CTXHANDLE;
  lXMLData XMLType;
BEGIN
  CTX := DBMS_XMLGEN.NEWCONTEXT(INQUERYSTRING);
  dbms_xmlgen.setNullHandling(ctx, 2);
  dbms_xmlgen.setIndentationWidth(ctx, 0);
  dbms_xmlgen.setRowSetTag(ctx, 'ROOT');
  dbms_xmlgen.setRowTag(ctx, 'item');
  dbms_xmlgen.setskiprows(ctx,inStartRow);
  DBMS_XMLGEN.SETMAXROWS(CTX,INMAXROWS);
  dbms_xmlgen.setConvertSpecialChars(ctx, TRUE);
  IF LENGTH(INXSLTSTRING) <> 0 AND INXSLTSTRING <>'[none]' THEN
    LXMLDATA              := DBMS_XMLGEN.GETXMLTYPE(CTX,DBMS_XMLGEN.NONE);
    LHTMLOUTPUT           :=LXMLDATA.TRANSFORM(XMLTYPE(INXSLTSTRING));
  ELSE
    xmlResult := dbms_xmlgen.getxml(ctx);
  END IF;
  DBMS_XMLGEN.CLOSECONTEXT(CTX);
  IF LENGTH(INXSLTSTRING) <> 0 AND INXSLTSTRING <>'[none]' THEN
    RETURN replace(LHTMLOUTPUT.GETCLOBVAL(),'& l t ; br/ & g t ;','<br/>');
  ELSE
    RETURN XMLRESULT;
  END IF;
END gen_system_genexml;& l t ; br/ & g t ; without the extract spaces
Edited by: user4882594 on Jan 20, 2011 7:06 AM
Edited by: user4882594 on Jan 20, 2011 7:06 AM