Changeset 15013

Timestamp:

2008-02-27T16:36:05+13:00 (16 years ago)

Author:

davidb

Message:

Adjustment to Fedora and METS plugouts so they can handle Fedora v2.x or Fedora v3.x

Location:

gsdl/trunk/perllib/plugouts

Files:

• FedoraMETSPlugout.pm (modified) (1 diff)
• METSPlugout.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugouts/FedoraMETSPlugout.pm

@@ -84 +84 @@
     my $collection = $ENV{'GSDLCOLLECTION'};
 
-  # Might need the following in the schemeLocation attribute for Fedora3
-  #   http://www.fedora.info/definitions/1/0/mets-fedora-ext1-1.xsd
-
-    my $extra_attr = "OBJID=\"$oid_namespace:$collection-$OID\" TYPE=\"FedoraObject\" LABEL=\"$doc_title\" EXT_VERSION=\"1.1\"";
-
-    $self->output_mets_xml_header_extra_attribute($handle,$extra_attr);
+    # Might need the following in the schemeLocation attribute for Fedora3
+    #   http://www.fedora.info/definitions/1/0/mets-fedora-ext1-1.xsd
+
+    my $extra_attr = "OBJID=\"$oid_namespace:$collection-$OID\" TYPE=\"FedoraObject\" LABEL=\"$doc_title\"";
+
+    my $extra_schema = undef;
+
+    if ($ENV{'FEDORA2_HOME'}) {
+    $extra_schema = "http://www.fedora.info/definitions/1/0/mets-fedora-ext.xsd";
+    }
+    else {
+    $extra_attr .= " EXT_VERSION=\"1.1\"";
+    }
+    
+    $self->output_mets_xml_header_extra_attribute($handle,$extra_attr,$extra_schema);
 
     print $handle '<mets:metsHdr RECORDSTATUS="A"/>'. "\n"; # A = active

gsdl/trunk/perllib/plugouts/METSPlugout.pm

@@ -192 +192 @@
 {
     my $self = shift(@_);
-    my ($handle, $extra_attr) = @_;
+    my ($handle, $extra_attr, $extra_schema) = @_;
 
     print $handle '<?xml version="1.0" encoding="UTF-8" standalone="no"?>' . "\n";
@@ -198 +198 @@
     print $handle '           xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"' . "\n";
     print $handle '           xmlns:gsdl3="http://www.greenstone.org/namespace/gsdlmetadata/1.0/"' . "\n";
-##    print $handle '           xmlns:xlink="http://www.w3.org/TR/xlink"' ."\n";
-    print $handle '           xmlns:xlink="http://www.w3.org/1999/xlink"' ."\n";
+    if ($ENV{'FEDORA2_HOME'}) {
+    print $handle '           xmlns:xlink="http://www.w3.org/TR/xlink"' ."\n";
+    }
+    else {
+    print $handle '           xmlns:xlink="http://www.w3.org/1999/xlink"' ."\n";
+    }
     print $handle '           xsi:schemaLocation="http://www.loc.gov/METS/' . "\n";
     print $handle '           http://www.loc.gov/standards/mets/mets.xsd' . "\n";
+    print $handle " $extra_schema\n" if (defined $extra_schema);
     print $handle '           http://www.greenstone.org/namespace/gsdlmetadata/1.0/' . "\n";
     print $handle '           http://www.greenstone.org/namespace/gsdlmetadata/1.0/gsdl_metadata.xsd"' . "\n";