From b188b6d9c78d9d6943b80ec106be6c4a71bf18ce Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 8 Mar 2006 13:33:46 +0000
Subject: [PATCH] oops... forgot to check in marcxml feed support

git-svn-id: svn://svn.open-ils.org/ILS/trunk@3279 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../src/perlmods/OpenILS/WWW/SuperCat/Feed.pm | 25 +++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm
index 6edae27ba5..3d75b3d92b 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm
@@ -311,6 +311,31 @@ sub link {
 }
 
 
+#----------------------------------------------------------
+
+package OpenILS::WWW::SuperCat::Feed::marcxml;
+use base 'OpenILS::WWW::SuperCat::Feed';
+
+sub new {
+	my $class = shift;
+	my $self = $class->SUPER::build('<marc:collection xmlns:marc="http://www.loc.gov/MARC21/slim"/>');
+	$self->{type} = 'marcxml';
+	$self->{item_xpath} = '/marc:collection';
+	return $self;
+}
+
+package OpenILS::WWW::SuperCat::Feed::marcxml::item;
+use base 'OpenILS::WWW::SuperCat::Feed::marcxml';
+
+sub new {
+	my $class = shift;
+	my $xml = shift;
+	my $self = $class->SUPER::build($xml);
+	$self->{doc}->documentElement->setNamespace('http://www.loc.gov/MARC21/slim', 'marc');
+	$self->{type} = 'marc::item';
+	return $self;
+}
+
 #----------------------------------------------------------
 
 package OpenILS::WWW::SuperCat::Feed::html;
-- 
2.43.2