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

[svn at svn.open-ils.org]

Author: miker
Date: 2008-06-04 00:15:53 -0400 (Wed, 04 Jun 2008)
New Revision: 9766

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm
Log:
fix the marcxml feed to use default namespace on the record element

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm	2008-06-04 04:14:47 UTC (rev 9765)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm	2008-06-04 04:15:53 UTC (rev 9766)
@@ -5,11 +5,8 @@
 use XML::LibXML;
 use XML::LibXSLT;
 use OpenSRF::Utils::SettingsClient;
-use OpenSRF::Utils::Logger qw/$logger/;
 use CGI;
 
-my $log = 'OpenSRF::Utils::Logger';
-
 sub exists {
 	my $class = shift;
 	my $type = shift;
@@ -215,7 +212,6 @@
 sub toString {
 	my $self = shift;
 	$self->composeDoc;
-	$log->debug("Document composed");
 	return $self->{doc}->toString(1);
 }
 
@@ -518,9 +514,8 @@
 	my $self = $class->SUPER::build($xml);
 	return undef unless $self;
 	$self->{doc}->documentElement->setNamespace('http://www.loc.gov/MARC21/slim', undef);
-	$self->{doc}->documentElement->setNamespace('http://www.loc.gov/MARC21/slim', 'marc');
 	$self->{type} = 'application/xml';
-	$self->{holdings_xpath} = '/marc:record';
+	$self->{holdings_xpath} = '/*[local-name()="record"]';
 	return $self;
 }
 
@@ -531,7 +526,7 @@
 
 	if ($type eq 'opac') {
 		$self->_create_node(
-			'marc:record',
+			'*[local-name()="record"]',
 			'http://www.w3.org/1999/xhtml',
 			'xhtml:link',
 			undef,
@@ -540,7 +535,7 @@
 		$linkid++;
 	} elsif ($type eq 'unapi-id') {
 		$self->_create_node(
-			'marc:record',
+			'*[local-name()="record"]',
 			'http://www.w3.org/1999/xhtml',
 			'xhtml:abbr',
 			undef,