Changeset 286 for trunk/gsdl/perllib

Timestamp:

1999-06-24T17:25:43+12:00 (25 years ago)

Author:

sjboddie

Message:

few changes mostly to get howto and organization classifications
building for hdl collection

Location:

trunk/gsdl/perllib/plugins

Files:

• HBPlug.pm (modified) (6 diffs)
• IndexPlug.pm (added)
• TOCPlug.pm (deleted)

trunk/gsdl/perllib/plugins/HBPlug.pm

@@ -5 +5 @@
 use html;
 use BasPlug;
-
+use util;
 
 sub BEGIN {
@@ -136 +136 @@
     }
     return 0 unless defined $jobnumber;
-    my $htmlfile = "$base_dir$file/$jobnumber.htm";
+    my $htmlfile = &util::filename_cat($base_dir, $file, "$jobnumber.htm");
     return 0 unless -e $htmlfile;
 
@@ -148 +148 @@
 
     # copy the book cover if it exists
-    my $bookcover = "$base_dir$file/$jobnumber.jpg";
+    my $bookcover = &util::filename_cat($base_dir, $file, "$jobnumber.jpg");
     $doc_obj->associate_file($bookcover, "cover.jpg", "image/jpeg") 
     if -e $bookcover;
@@ -190 +190 @@
 
         # add the metadata to this section
-        if (!$firstsection || !defined($metadata->{'Title'})) {
-        $doc_obj->add_metadata ($cursection, "Title", $title);
-        }
+        $doc_obj->add_metadata ($cursection, "Title", $title);
+
         if ($firstsection) {
         foreach $field (keys(%$metadata)) {
-            # Subjects may be a colon separated list
-            if ($field eq "Subject") {
-            my @subjects = split /:/, $metadata->{'Subject'};
-            foreach $subject (@subjects) {
-                $doc_obj->add_metadata ($cursection, 'Subject', $subject); 
-            }
+            # $metadata->{$field} may be an array reference
+            if (ref ($metadata->{$field}) eq "ARRAY") {
+            map { 
+                $doc_obj->add_metadata ($cursection, $field, $_); 
+            } @{$metadata->{$field}};
             } else {
-            $doc_obj->add_metadata ($cursection, $field, $metadata->{$field});
+            $doc_obj->add_metadata ($cursection, $field, $metadata->{$field}); 
             }
         }
@@ -216 +214 @@
 #        split (/(_linkOID_\(_thisOID_\/[^\)]+\))/, $sectiontext);
 
-        map { $doc_obj->associate_file("$base_dir$file/$1", $1)
+        map { $doc_obj->associate_file(&util::filename_cat ($base_dir, $file, $1), $1)
               if /_httpcollection_\/archives\/_thisOID_\/([^\"]+)\"/; 0; }
              split (/(_httpcollection_\/archives\/_thisOID_\/[^\"]+\")/, $sectiontext);
@@ -233 +231 @@
     $doc_obj->set_OID ();
 
-    print STDERR "OID: ", $doc_obj->get_OID(), "\n";
-
     # process the document
     $processor->process($doc_obj);