svn commit - mysqldoc@docsrva: r8050 - trunk/tools/MySQL/DynXML

[mcbrown]

Author: mcbrown
Date: 2007-10-11 14:24:00 +0200 (Thu, 11 Oct 2007)
New Revision: 8050

Log:
Minor fix to ensure entity parsing doesn't occur for basic elements



Modified:
   trunk/tools/MySQL/DynXML/ChangelogParser.pm


Modified: trunk/tools/MySQL/DynXML/ChangelogParser.pm
===================================================================
--- trunk/tools/MySQL/DynXML/ChangelogParser.pm	2007-10-10 16:25:44 UTC (rev 8049)
+++ trunk/tools/MySQL/DynXML/ChangelogParser.pm	2007-10-11 12:24:00 UTC (rev 8050)
Changed blocks: 2, Lines Added: 12, Lines Deleted: 2; 1114 bytes

@@ -138,8 +138,10 @@
     if ($element->{Name} eq 'message')
     {
         $self->{currententry}->{message} = join('',@{$self->{currenttext}});
-        $self->{currententry}->{message} =~ s/ < / &lt; /g;
-        $self->{currententry}->{message} =~ s/ > / &gt; /g;
+        $self->{currententry}->{message} =~ s/&/&amp;/g;
+        $self->{currententry}->{message} =~ s/&amp;([a-z_]);/&$1;/g;
+        $self->{currententry}->{message} =~ s/</&lt;/g;
+        $self->{currententry}->{message} =~ s/>/&gt;/g;
             
         $self->{savecdata} = 0;
         $self->{remapxmldata} = 0;

@@ -163,4 +165,12 @@
     push @{$self->{currenttext}},$element->{Data} if ($self->{savecdata});
 }
 
+sub entity_reference
+{
+    my ($self,$element) = @_;
+
+    push @{$self->{currenttext}},sprintf('&%s;',$element->{Name}) if ($self->{savecdata});
+
+}
+
 1;