Changeset 18900 for gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm
- Timestamp:
- 2009-04-06T14:41:54+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm
r18563 r18900 67 67 68 68 my $self = new ReadXMLFile($pluginlist, $inputargs, $hashArgOptLists); 69 69 70 # we want to strip namespaces, so have to create a new XML parser 71 my $parser = new XML::Parser('Style' => 'Stream', 72 'Pkg' => 'ReadXMLFile', 73 'PluginObj' => $self, 74 'Namespaces' => 1, # strip out namespaces 75 'Handlers' => {'Char' => \&ReadXMLFile::Char, 76 'XMLDecl' => \&ReadXMLFile::XMLDecl, 77 'Entity' => \&ReadXMLFile::Entity, 78 'Doctype' => \&ReadXMLFile::Doctype, 79 'Default' => \&ReadXMLFile::Default 80 }); 81 82 $self->{'parser'} = $parser; 83 70 84 $self->{'content'} = ""; 71 85 $self->{'xmlcontent'} = "";
Note:
See TracChangeset
for help on using the changeset viewer.