Changeset 82 for trunk/gsdl/perllib/mgbuildproc.pm

Timestamp:

1998-12-18T13:42:01+13:00 (25 years ago)

Author:

sjboddie

Message:

minor changes to allow individual sections of documents to belong to
classifications as well as the document itself

File:

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

trunk/gsdl/perllib/mgbuildproc.pm

@@ -143 +143 @@
 
     my ($parent, $classification, $creator, $OID);
+    
+    $classification = $self->get_classifications($doc_obj, $section, $mapped_section)
+        unless $doctype eq "classification";
 
     if ($section ne $doc_obj->get_top_section()) {
@@ -153 +156 @@
         $parent =~ s/\.+$//;
     } else {
-        $classification = $self->get_classifications($doc_obj, $section, $mapped_section)
-        unless $doctype eq "classification";
         $creator = $doc_obj->get_metadata_element($section, "Creator");
         $OID = $doc_obj->get_OID();
@@ -221 +222 @@
             $self->write_to_gdbm ($handle, $intromapsection, "<i>(introductory text)</i>", $creator,
                       $source, $date, $jobnumber, undef, $self->{'num_sections'},
-                      $mapped_section, undef, $OID);
+                      $mapped_section, $classification, $OID);
         }
         }