[open-ils-commits] r12905 - trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-04-17 14:06:46 -0400 (Fri, 17 Apr 2009)
New Revision: 12905

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm
Log:
adding explicit feed support for MODS 3.2 and 3.3, to support item/volume data (-full mode) in feeds

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm	2009-04-17 16:58:40 UTC (rev 12904)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm	2009-04-17 18:06:46 UTC (rev 12905)
@@ -474,6 +474,38 @@
 
 #----------------------------------------------------------
 
+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';