From ebbff4d401d4c53ade3ba586fb9e50851df99424 Mon Sep 17 00:00:00 2001 From: miker Date: Fri, 17 Apr 2009 18:06:46 +0000 Subject: [PATCH] adding explicit feed support for MODS 3.2 and 3.3, to support item/volume data (-full mode) in feeds git-svn-id: svn://svn.open-ils.org/ILS/trunk@12905 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm | 32 ++++++++++++++++++++++ 1 file changed, 32 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm index bce56dd350..27f9d6b032 100644 --- 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(''); + $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(''); + $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'; -- 2.11.0