adding explicit feed support for MODS 3.2 and 3.3, to support item/volume data (...

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12905 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm
index bce56dd..27f9d6b 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm
@@ -474,6 +474,38 @@ sub link {
 
 #----------------------------------------------------------
 
+package OpenILS::WWW::SuperCat::Feed::mods32;
+use base 'OpenILS::WWW::SuperCat::Feed::mods';
+
+sub new {
+       my $class = shift;
+       my $self = $class->SUPER::build('<mods:modsCollection version="3.2" xmlns:mods="http://www.loc.gov/mods/v3"/>');
+       $self->{type} = 'application/xml';
+       $self->{item_xpath} = '/mods:modsCollection';
+       return $self;
+}
+
+package OpenILS::WWW::SuperCat::Feed::mods32::item;
+use base 'OpenILS::WWW::SuperCat::Feed::mods::item';
+
+#----------------------------------------------------------
+
+package OpenILS::WWW::SuperCat::Feed::mods33;
+use base 'OpenILS::WWW::SuperCat::Feed::mods';
+
+sub new {
+       my $class = shift;
+       my $self = $class->SUPER::build('<mods:modsCollection version="3.3" xmlns:mods="http://www.loc.gov/mods/v3"/>');
+       $self->{type} = 'application/xml';
+       $self->{item_xpath} = '/mods:modsCollection';
+       return $self;
+}
+
+package OpenILS::WWW::SuperCat::Feed::mods33::item;
+use base 'OpenILS::WWW::SuperCat::Feed::mods::item';
+
+#----------------------------------------------------------
+
 package OpenILS::WWW::SuperCat::Feed::mods3;
 use base 'OpenILS::WWW::SuperCat::Feed::mods';