Changeset 18900

Timestamp:

2009-04-06T14:41:54+12:00 (15 years ago)

Author:

kjdon

Message:

this relied on the fact that the parser created in ReadXMLFile strips out namepsaces. It no longer does this, so now we need to create our own xml parser that does do it.

File:

• gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm

@@ -67 +67 @@
 
     my $self = new ReadXMLFile($pluginlist, $inputargs, $hashArgOptLists);
-    
+        
+    # we want to strip namespaces, so have to create a new XML parser
+    my $parser = new XML::Parser('Style' => 'Stream',
+                                 'Pkg' => 'ReadXMLFile',
+                                 'PluginObj' => $self,
+                 'Namespaces' => 1, # strip out namespaces
+                 'Handlers' => {'Char' => \&ReadXMLFile::Char,
+                        'XMLDecl' => \&ReadXMLFile::XMLDecl,
+                        'Entity'  => \&ReadXMLFile::Entity,
+                        'Doctype' => \&ReadXMLFile::Doctype,
+                        'Default' => \&ReadXMLFile::Default
+                                 });
+
+    $self->{'parser'} = $parser;
+
     $self->{'content'} = "";
     $self->{'xmlcontent'} = "";