Changeset 288 for trunk/gsdl/perllib

Timestamp:

1999-06-25T11:16:56+12:00 (25 years ago)

Author:

sjboddie

Message:

Fixed up a few things to allow collections to be built directly (without
importing first).

File:

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

trunk/gsdl/perllib/plugins/HBPlug.pm

@@ -3 +3 @@
 package HBPlug;
 
+use plugin;
 use html;
 use BasPlug;
 use util;
+use lang;
+use doc;
+use cfgread;
+
 
 sub BEGIN {
@@ -128 +133 @@
     my ($pluginfo, $base_dir, $file, $metadata, $processor) = @_;
 
-    # get the html filename and see if this is a HTML Book...
-    my ($jobnumber);
+    # get the html filename and see if this is an HTML Book...
+    my $jobnumber = $file;
     if ($file =~ /[\\\/]/) {
     ($jobnumber) = $file =~ /[\\\/]([^\\\/]+)$/;
-    } else {
-    ($jobnumber) = $file =~ /^([^\\\/]+)$/;
     }
     return 0 unless defined $jobnumber;
@@ -232 +235 @@
 
     # process the document
-    $processor->process($doc_obj);
+    $processor->process($doc_obj, &util::filename_cat($file, "$jobnumber.htm"));
         
     return 1; # processed the file