(updating xml value)adding an element in an xml type column

Question

Hi all,
i hava a table that contains an xml-Type column (non schema based)
i have inserted some data in it
table:(id,xmlcolumn)
ex:
insert into t1 values(1,'<Chapters>
<Chapter>ch1<Chapter>
<Chapter>ch2<Chapter>
</Chapters>')
i need to add a new Chapter: <Chapter>ch3</Chapter>
for the result of xml instance in the table to be:
<Chapters>
<Chapter>ch1<Chapter>
<Chapter>ch2<Chapter>
<Chapter>ch3<Chapter>
</Chapters>
plz if any one colud help

Answer 1

SQL> DECLARE
  2      l_xml      XMLTYPE := XMLTYPE('<Chapters>
  3  <Chapter>ch1</Chapter>
  4  <Chapter>ch2</Chapter>
  5  </Chapters>');
  6      l_xsl      XMLTYPE;
  7      l_new_node VARCHAR2(100) := '<Chapter>ch3</Chapter>';
  8  BEGIN
  9      dbms_output.put_line('Before adding node:');
10      dbms_output.put_line('----------------------------------------------------------------');
11      dbms_output.put_line(l_xml.getStringVal());
12      dbms_output.put_line('----------------------------------------------------------------');
13      l_xsl := XMLTYPE('<?xml version="1.0"?>' ||
14                       '<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"' ||
15                       ' version="1.0"' || ' result-ns=""' || ' indent="no">' ||
16                       '<xsl:output method="xml" media-type="text/xml" indent="no"/>' ||
17                       '<xsl:template match="/">' ||
18                           '<' ||l_xml.getRootElement() || '>' ||
19                               ' <xsl:for-each select="/' || l_xml.getRootElement() ||'/Chapter">' ||
20                                   '<xsl:copy-of select="." />' ||
21                               '</xsl:for-each>' ||
22                               l_new_node ||
23                           '</' || l_xml.getRootElement() || '>' ||
24                       '</xsl:template>' ||
25                       '</xsl:stylesheet>');
26      l_xml := l_xml.Transform(l_xsl);
27      dbms_output.put_line('After adding node:');
28      dbms_output.put_line('----------------------------------------------------------------');
29      dbms_output.put_line(l_xml.getStringVal());
30      dbms_output.put_line('----------------------------------------------------------------');
31  END;
32  /
Before adding node:
<Chapters>
<Chapter>ch1</Chapter>
<Chapter>ch2</Chapter>
</Chapters>
After adding node:
<Chapters>
  <Chapter>ch1</Chapter>
  <Chapter>ch2</Chapter>
  <Chapter>ch3</Chapter>
</Chapters>
PL/SQL procedure successfully completed.
SQL>