Make MODS v3 variants inherit from mods3 rather than mods (version 2).
authordbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 28 Sep 2009 18:37:33 +0000 (18:37 +0000)
committerdbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 28 Sep 2009 18:37:33 +0000 (18:37 +0000)
Results in the correct namespace being applied to MODS v3[123] and makes Zotero happy.

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

Open-ILS/src/perlmods/OpenILS/WWW/SuperCat/Feed.pm

index 9b95d4a..bee64aa 100644 (file)
@@ -471,39 +471,6 @@ 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;
@@ -557,6 +524,39 @@ sub link {
 
 #----------------------------------------------------------
 
+package OpenILS::WWW::SuperCat::Feed::mods32;
+use base 'OpenILS::WWW::SuperCat::Feed::mods3';
+
+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::mods3::item';
+
+#----------------------------------------------------------
+
+package OpenILS::WWW::SuperCat::Feed::mods33;
+use base 'OpenILS::WWW::SuperCat::Feed::mods3';
+
+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::mods3::item';
+
+
+#----------------------------------------------------------
+
 package OpenILS::WWW::SuperCat::Feed::marcxml;
 use base 'OpenILS::WWW::SuperCat::Feed';