Changeset 8514

Timestamp:

2004-11-11T14:14:56+13:00 (19 years ago)

Author:

chi

Message:

Modify the namespace in METS file as "gsdl3"

File:

• trunk/gsdl/perllib/plugins/METSPlug.pm (modified) (5 diffs)

trunk/gsdl/perllib/plugins/METSPlug.pm

@@ -80 +80 @@
     $self->{'metadata_name'} = "";
     $self->{'metadata_value'} = "";
-    $self->{'content'}="";
+    $self->{'content'} = "";
 
     #**defined a dmdSection Table
@@ -133 +133 @@
 
     $self->{'element'} = $element;
- 
+    #print STDERR "###METS Element=$element\n";
+
     #**deal with dmdSection
-    if ($element eq "mets:dmdSec" || $element eq "gsdl:Metadata"){
+    if ($element eq "mets:dmdSec" || $element eq "gsdl3:Metadata"){    
     $self->xml_dmd_start_tag (@_);
     } elsif ($element eq "mets:FLocat"){
@@ -154 +155 @@
     $self->{'dmdSec_table'}->{"$section_num"}=[];
     $self->{'dmdSec_table'}->{'section_num'}=$section_num;
-    } elsif ($element eq "gsdl:Metadata") {
+    } elsif ($element eq "gsdl3:Metadata") {
     $self->{'metadata_name'} = $_{'name'};
     }
@@ -233 +234 @@
     my ($expat, $element) = @_;
 
-    if ($element eq "gsdl:Metadata") {
+    if ($element eq "gsdl3:Metadata") {
     my $section_num = $self->{'dmdSec_table'}->{'section_num'};
     my $metadata_name=$self->{'metadata_name'};
@@ -262 +263 @@
     my ($expat) = @_; 
 
-    if ($self->{'element'} eq "gsdl:Metadata") {
+    if ($self->{'element'} eq "gsdl3:Metadata") {
     $self->{'metadata_value'} .= $_;
     }