Changeset 8894 for trunk/gsdl/perllib/doc.pm

Timestamp:

2005-01-12T16:10:16+13:00 (19 years ago)

Author:

chi

Message:

Modification of the validated METS format in the docmets.xml

File:

• trunk/gsdl/perllib/doc.pm (modified) (12 diffs)

trunk/gsdl/perllib/doc.pm

@@ -8 +8 @@
 # Copyright (C) 1999 New Zealand Digital Library Project
 #
-# This program is free software; you can redistribute it and/or modify
+# This program is free software; you can redistr   te it and/or modify
 # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 2 of the License, or
@@ -273 +273 @@
 sub buffer_mets_fileSection_section_xml() {
     my $self = shift(@_);
-    my ($section, $doc_Dir) = @_;
-
-    $section="" unless defined $section;
+    my ($section) = @_;
+
+    #$section="" unless defined $section;
     
 
@@ -301 +301 @@
     $all_text .=  $xpath;
 
-    $all_text .= ']/text())" ID="FILE'. $section_num. '" />' . "\n";
+    $all_text .= ']/text())" />' . "\n";
     $all_text .= "    </mets:file>\n";
     $all_text .= "  </mets:fileGrp>\n";
@@ -307 +307 @@
 
     foreach my $subsection (@{$section_ptr->{'subsection_order'}}){
-       $all_text .= $self->buffer_mets_fileSection_section_xml("$section.$subsection",$doc_Dir);
+    $all_text .= $self->buffer_mets_fileSection_section_xml("$section.$subsection");
     }
     
@@ -339 +339 @@
           $all_text .= '    <mets:file MIMETYPE="text/xml" ID="default.'.$fileID.'">'. "\n";
         
-      $all_text .= '      <mets:FLocat LOCTYPE="URL" xlink:href="file:'.$data->[1].'" ID="default.'.$fileID.'" />'."\n";
+      $all_text .= '      <mets:FLocat LOCTYPE="URL" xlink:href="file:'.$data->[1].'" />'."\n";
       
           $all_text .= "    </mets:file>\n";
@@ -351 +351 @@
 
       $all_text .= '    <mets:file MIMETYPE="'.$2.'" ID="default.'.$fileID. '">'. "\n";
-      $all_text .= '      <mets:FLocat LOCTYPE="URL" xlink:href="file:'.$assfilePath.'" ID="default.'. $fileID.'" />'."\n";
+      $all_text .= '      <mets:FLocat LOCTYPE="URL" xlink:href="file:'.$assfilePath.'" />'."\n";
           
       $all_text .= "    </mets:file>\n";
@@ -379 +379 @@
     my $dmd_num = $section_num;
 
-    #**output the dmdSection details  
-    if ($section_num eq "1") {
-    $dmd_num = "0";
-    }
+    ##**output the dmdSection details  
+    #if ($section_num eq "1") {
+    #   $dmd_num = "0";
+    #}
 
     #**output the StruMap details
@@ -414 +414 @@
     my $all_text="" unless defined $all_txt;   
     my $fileID=0;
+    my $order_num = 0;
 
     $all_text .= '<mets:structMap ID="All" TYPE="Whole Document" LABEL="All">'."\n";
-    $all_text .= '  <mets:div ID="All" TYPE="Document" ORDER="All" ORDERLABEL="All" LABEL="Whole Documemt" DMDID="DM1">' . "\n";
+    $all_text .= '  <mets:div ID="DSAll" TYPE="Document" ORDER="'.$order_num.'" ORDERLABEL="All" LABEL="Whole Documemt" DMDID="DM1">' . "\n";
   
 
@@ -456 +457 @@
     my $dmd_num = $section_num;
 
-    #**output the dmdSection details  
-    if ($section_num eq "1") {
-    $dmd_num = "0";
-    }
+    # #**output the dmdSection details  
+    # if ($section_num eq "1") {
+    #   $dmd_num = "0";
+    # }
     my $all_text = '<mets:dmdSec ID="DM'.$dmd_num.'" GROUPID="'.$section_num.'">'. "\n";
-    $all_text .= '  <mets:mdWrap MDType="gsdl3" ID="'.$section_num.'">'."\n";
+    $all_text .= '  <mets:mdWrap MDTYPE="OTHER" OTHERMDTYPE="gsdl3" ID="gsdl'.$section_num.'">'."\n";
     $all_text .= "    <mets:xmlData>\n";
     foreach my $data (@{$section_ptr->{'metadata'}}){
@@ -530 +531 @@
 sub output_mets_section {
     my $self = shift(@_);
-    my ($handle, $section, $doc_Dir) = @_;
-    
+    my ($handle, $section) = @_;
+
     #***print out the dmdSection
     print $handle $self->buffer_mets_dmdSection_section_xml($section);
@@ -537 +538 @@
     #***print out the fileSection by sections
     print $handle "<mets:fileSec>\n";
-    print $handle $self->buffer_mets_fileSection_section_xml($section,$doc_Dir);
+    print $handle $self->buffer_mets_fileSection_section_xml($section);
 
     #***print out the whole fileSection
@@ -1192 +1193 @@
     }
     
+    #print STDERR "###$field=$value\n";
     # double check that the value is utf-8
     if (unicode::ensure_utf8(\$value)) {