[open-ils-commits] r8529 -
trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat
svn at svn.open-ils.org
svn at svn.open-ils.org
Tue Jan 29 16:40:57 EST 2008
Author: miker
Date: 2008-01-29 16:13:32 -0500 (Tue, 29 Jan 2008)
New Revision: 8529
Modified:
trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm
Log:
make double extra sure that the namespace attribute is there!
Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm 2008-01-29 19:14:29 UTC (rev 8528)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm 2008-01-29 21:13:32 UTC (rev 8529)
@@ -291,6 +291,7 @@
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->{item_xpath} = '/atom:entry';
$self->{holdings_xpath} = '/atom:entry';
$self->{type} = 'application/xml';
@@ -390,6 +391,7 @@
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->{type} = 'application/xml';
$self->{holdings_xpath} = '/mods:mods';
return $self;
@@ -442,6 +444,7 @@
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->{type} = 'application/xml';
$self->{holdings_xpath} = '/mods:mods';
return $self;
@@ -510,6 +513,7 @@
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->{type} = 'application/xml';
$self->{holdings_xpath} = '/marc:record';
return $self;
More information about the open-ils-commits
mailing list