[open-ils-commits] r8530 - trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat

[svn at svn.open-ils.org]

Author: miker
Date: 2008-01-29 16:30:03 -0500 (Tue, 29 Jan 2008)
New Revision: 8530

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm
Log:
use default namespaces ... easier to work with anyway, and newer libxmls avoid stripping them

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm	2008-01-29 21:13:32 UTC (rev 8529)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm	2008-01-29 21:30:03 UTC (rev 8530)
@@ -290,8 +290,7 @@
 	my $class = shift;
 	my $xml = shift;
 	my $self = $class->SUPER::build($xml);
-	$self->{doc}->documentElement->setNamespace('http://www.w3.org/2005/Atom', 'atom');
-	$self->{doc}->documentElement->setNamespace('http://www.w3.org/2005/Atom', 'atom', 0);
+	$self->{doc}->documentElement->setNamespace('http://www.w3.org/2005/Atom', undef);
 	$self->{item_xpath} = '/atom:entry';
 	$self->{holdings_xpath} = '/atom:entry';
 	$self->{type} = 'application/xml';
@@ -390,8 +389,7 @@
 	my $class = shift;
 	my $xml = shift;
 	my $self = $class->SUPER::build($xml);
-	$self->{doc}->documentElement->setNamespace('http://www.loc.gov/mods/', 'mods');
-	$self->{doc}->documentElement->setNamespace('http://www.loc.gov/mods/', 'mods', 0);
+	$self->{doc}->documentElement->setNamespace('http://www.loc.gov/mods/', undef);
 	$self->{type} = 'application/xml';
 	$self->{holdings_xpath} = '/mods:mods';
 	return $self;
@@ -443,8 +441,7 @@
 	my $class = shift;
 	my $xml = shift;
 	my $self = $class->SUPER::build($xml);
-	$self->{doc}->documentElement->setNamespace('http://www.loc.gov/mods/v3', 'mods');
-	$self->{doc}->documentElement->setNamespace('http://www.loc.gov/mods/v3', 'mods', 0);
+	$self->{doc}->documentElement->setNamespace('http://www.loc.gov/mods/v3', undef);
 	$self->{type} = 'application/xml';
 	$self->{holdings_xpath} = '/mods:mods';
 	return $self;
@@ -512,8 +509,7 @@
 	my $xml = shift;
 	my $self = $class->SUPER::build($xml);
 	return undef unless $self;
-	$self->{doc}->documentElement->setNamespace('http://www.loc.gov/MARC21/slim', 'marc');
-	$self->{doc}->documentElement->setNamespace('http://www.loc.gov/MARC21/slim', 'marc', 0);
+	$self->{doc}->documentElement->setNamespace('http://www.loc.gov/MARC21/slim', undef);
 	$self->{type} = 'application/xml';
 	$self->{holdings_xpath} = '/marc:record';
 	return $self;