From da30166f3b568fc04de5c65ad3573539f4223d95 Mon Sep 17 00:00:00 2001
From: "Paul Buetow (pluto.buetow.org)" <paul@buetow.org>
Date: Sat, 28 Sep 2013 15:51:35 +0200
Subject: initial HTML rendering with new SAX parser works

---
 Xerl/XML/SAXHandler.pm | 19 ++++++-------------
 1 file changed, 6 insertions(+), 13 deletions(-)

(limited to 'Xerl/XML/SAXHandler.pm')

diff --git a/Xerl/XML/SAXHandler.pm b/Xerl/XML/SAXHandler.pm
index df07fca..1397254 100644
--- a/Xerl/XML/SAXHandler.pm
+++ b/Xerl/XML/SAXHandler.pm
@@ -76,27 +76,20 @@ sub characters {
   my ($self, $doc) = @_;
   my $x = $self->{xerl};
 
-  $x->{last_data} = $doc->{Data};
+  my $data = $doc->{Data};
+  $data =~ s/!!LT!!/</g;
+  $data =~ s/!!GT!!/>/g;
 
-  return undef;
-}
-
-sub end_element {
-  my ($self, $doc) = @_;
-  my $x = $self->{xerl};
-
-  my $prev = pop @{$x->{stack}};
-  $prev->{text} = $x->{last_data};
-  $x->{current} = $prev;
+  $x->{current}{text} = $data;
 
   return undef;
 }
 
-sub end_document {
+sub end_element {
   my ($self, $doc) = @_;
   my $x = $self->{xerl};
 
-  print Dumper $x->{root};
+  $x->{current} = pop @{$x->{stack}};
 
   return undef;
 }
-- 
cgit v1.2.3