Changeset 2267 for trunk/gsdl/perllib/docsave.pm

Timestamp:

2001-04-03T14:33:03+12:00 (23 years ago)

Author:

davidb

Message:

GML file syntax altered to be XML compliant. This basically meant
turning attribute lists of metadata names (which in Greenstone can
appear multiple times within a tag) into tag names themselves, which
are then explicitly stated in a <metadata>...</metadata> block.

Newly built collection will use the new syntactic form, however the
GMLPlug file is backwards compatible and so will still import in
files in the older GML format.

File:

• trunk/gsdl/perllib/docsave.pm (modified) (3 diffs)

trunk/gsdl/perllib/docsave.pm

@@ -53 +53 @@
     $self->{'groupsize'} = $groupsize;
     $self->{'gs_count'} = 0;
-    
+
+    # keep an associate array of all metavalues used by collection to
+    # help generate the XML DTD 
+    $self->{'dtd_metadata'} = {}; 
+
     $self->{'outhandle'} = STDERR;
     $self->{'outhandle'} = $outhandle if defined $outhandle;
-    
     # set a default for the archive directory
     $self->{'archive_dir'} = &util::filename_cat ($ENV{'GSDLCOLLECTDIR'}, "archives");
@@ -113 +116 @@
 
     # save this document
-    $doc_obj->output_section('docsave::OUTDOC', $doc_obj->get_top_section());
+    $doc_obj->output_section('docsave::OUTDOC', 
+                 $doc_obj->get_top_section(),
+                 $self->{'collection'},
+                 $self->{'dtd_metadata'},0);
+
     close OUTDOC;
 
@@ -184 +191 @@
 
     # save this document
-    $doc_obj->output_section('docsave::OUTDOC', $doc_obj->get_top_section());
+    $doc_obj->output_section('docsave::OUTDOC', 
+                 $doc_obj->get_top_section(),
+                 $self->{'collection'},
+                 $self->{'dtd_metadata'},0);
 
     $self->{'gs_count'}++;