Changeset 246

Timestamp:

1999-04-26T11:56:36+12:00 (25 years ago)

Author:

sjboddie

Message:

Now checks collect.cfg for a 'doctype' field and if it finds it it's passed
to the plugins as metadata and goes in the gdbm as 'classifytype' at the
top level of each document.

File:

• trunk/gsdl/perllib/mgbuilder.pm (modified) (2 diffs)

trunk/gsdl/perllib/mgbuilder.pm

@@ -99 +99 @@
     }
 
+    # set the classifytype to use for displaying documents - if the doctype field hasn't 
+    # been set in the collect.cfg then the receptionist currently defaults to displaying
+    # documents as 'Book'
+    if ($self->{'newgdbm'}) {
+    if (open (COLCFG, $colcfgname)) {
+        while (defined ($line = &cfgread::read_cfg_line('mgbuilder::COLCFG'))) {
+        if (scalar(@$line) == 2) {
+            my $key = shift (@$line);
+            if ($key eq "doctype") {
+            $self->{'classifytype'} = shift (@$line);
+            }
+        }
+        }
+        close (COLCFG);
+    }
+    }
+
     # load up the document processor for building
     # if a buildproc class has been created for this collection, use it
@@ -477 +494 @@
     }
     $self->{'buildproc'}->reset();
+
+    my $metadata = {};
+    if (defined $self->{'classifytype'} && $self->{'classifytype'} =~ /\w/) {
+    $metadata->{'classifytype'} = $self->{'classifytype'};
+    }
     &plugin::read ($self->{'pluginfo'}, $self->{'source_dir'}, 
-           "", {}, $self->{'buildproc'});
+           "", $metadata, $self->{'buildproc'});
 
     # output classification information