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

Timestamp:

1998-11-26T15:32:13+13:00 (25 years ago)

Author:

sjboddie

Message:

Allowed for adding the 'Source' attribute to the infodb

File:

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

trunk/gsdl/perllib/mgbuildproc.pm

@@ -128 +128 @@
 
     my $title = $doc_obj->get_metadata_element($section, "Title");
+    my $source = $doc_obj->get_metadata_element($section, "Source"); 
     my $jobnumber = $doc_obj->get_source_filename();
 
@@ -182 +183 @@
         } else {
         $self->write_to_gdbm($handle, $mapped_section, $title, $creator, $jobnumber, undef,
-                     $self->{'num_sections'}, $parent, $classification, $OID);
+                     $self->{'num_sections'}, $parent, $classification, $OID, $source);
         }
     } else {
@@ -210 +211 @@
         $self->write_to_gdbm ($handle, $mapped_section, $title, $creator,
                       $jobnumber, $contains, $self->{'num_sections'},
-                      $parent, $classification, $OID);
+                      $parent, $classification, $OID, $source);
 
         if ($doc_obj->get_text_length($section) > 0) {
@@ -217 +218 @@
             $self->write_to_gdbm ($handle, $intromapsection, "<i>(introductory text)</i>", $creator,
                       $jobnumber, undef, $self->{'num_sections'},
-                      $mapped_section, undef, $OID);
+                      $mapped_section, undef, $OID, $source);
         }
         }
@@ -247 +248 @@
     print $handle "<t>$title\n" if defined $title;
     print $handle "<a>$creator\n" if defined $creator;
+    print $handle "<s>$source\n" if defined $source;
     print $handle "<j>$jobnumber\n" if defined $jobnumber;
     print $handle "<c>$contains\n" if defined $contains;