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

Timestamp:

1998-11-30T15:09:06+13:00 (25 years ago)

Author:

sjboddie

Message:

Allowed for adding date to infodb

File:

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

trunk/gsdl/perllib/mgbuildproc.pm

@@ -101 +101 @@
             ($saved_classifications->{$key}->{'parent'} eq "");
         $self->write_to_gdbm ($handle, $key, $saved_classifications->{$key}->{'title'}, 
-                  undef, undef, 
+                  undef, undef, undef, undef, 
                   $saved_classifications->{$key}->{'contains'}, undef, 
-                  $saved_classifications->{$key}->{'parent'}, undef);
+                  $saved_classifications->{$key}->{'parent'}, undef, undef);
     }
     return;
@@ -129 +129 @@
     my $title = $doc_obj->get_metadata_element($section, "Title");
     my $source = $doc_obj->get_metadata_element($section, "Source"); 
+    my $date = $doc_obj->get_metadata_element($section, "Date"); 
     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, $source);
+        $self->write_to_gdbm($handle, $mapped_section, $title, $creator, $source, $date, $jobnumber, undef,
+                     $self->{'num_sections'}, $parent, $classification, $OID);
         }
     } else {
@@ -209 +210 @@
         $contains .= ":" if $contains ne "";
         $contains .= join ":", @children;
-        $self->write_to_gdbm ($handle, $mapped_section, $title, $creator,
-                      $jobnumber, $contains, $self->{'num_sections'},
-                      $parent, $classification, $OID, $source);
+        $self->write_to_gdbm ($handle, $mapped_section, $title, $creator, $source,
+                      $date, $jobnumber, $contains, $self->{'num_sections'},
+                      $parent, $classification, $OID);
 
         if ($doc_obj->get_text_length($section) > 0) {
@@ -217 +218 @@
             $self->map_section($doctype, "$section.0");
             $self->write_to_gdbm ($handle, $intromapsection, "<i>(introductory text)</i>", $creator,
-                      $jobnumber, undef, $self->{'num_sections'},
-                      $mapped_section, undef, $OID, $source);
+                      $source, $date, $jobnumber, undef, $self->{'num_sections'},
+                      $mapped_section, undef, $OID);
         }
         }
@@ -242 +243 @@
 sub write_to_gdbm {
     my $self = shift (@_);
-    my ($handle, $section, $title, $creator, $jobnumber, $contains,
-    $docnum, $parent, $classification, $OID) = @_;
+    my ($handle, $section, $title, $creator, $source, $date, 
+    $jobnumber, $contains, $docnum, $parent, $classification, $OID) = @_;
 
     print $handle "[$section]\n";
@@ -249 +250 @@
     print $handle "<a>$creator\n" if defined $creator;
     print $handle "<s>$source\n" if defined $source;
+    print $handle "<i>$date\n" if defined $date;
     print $handle "<j>$jobnumber\n" if defined $jobnumber;
     print $handle "<c>$contains\n" if defined $contains;