Changeset 15013 for gsdl/trunk/perllib/plugouts/METSPlugout.pm

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

File:

• gsdl/trunk/perllib/plugouts/METSPlugout.pm (modified) (2 diffs)

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";