Changeset 2890

Timestamp:

2001-12-10T14:28:31+13:00 (22 years ago)

Author:

sjboddie

Message:

Added xml_entity function to XMLPlug

File:

• trunk/gsdl/perllib/plugins/XMLPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/XMLPlug.pm

@@ -46 +46 @@
                  'Handlers' => {'Char' => \&Char,
                         'XMLDecl' => \&XMLDecl,
+                        'Entity' => \&Entity,
                         'Doctype' => \&Doctype,
                         'Default' => \&Default
@@ -109 +110 @@
 sub StartDocument {$self->xml_start_document(@_);}
 sub XMLDecl {$self->xml_xmldecl(@_);}
+sub Entity {$self->xml_entity(@_);}
 sub Doctype {$self->xml_doctype(@_);}
 sub StartTag {$self->xml_start_tag(@_);}
@@ -137 +139 @@
     my $self = shift(@_);
     my ($expat, $version, $encoding, $standalone) = @_;
+}
+
+# Called for XML entities
+sub xml_entity {
+  my $self = shift(@_);
+  my ($expat, $name, $val, $sysid, $pubid, $ndata) = @_;
 }