Changeset 2816 for trunk/gsdl/perllib/plugins/ConvertToPlug.pm

Timestamp:

2001-11-05T16:29:23+13:00 (23 years ago)

Author:

sjboddie

Message:

Added cover_image option to BasPlug for associating a jpeg image as a
cover image (like the old HBPlug used to do).

File:

• trunk/gsdl/perllib/plugins/ConvertToPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -272 +272 @@
     my ($filemeta) = $file =~ /([^\\\/]+)$/;
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Source", &ghtml::dmsafe($filemeta));
+    if ($self->{'cover_image'}) {
+    $self->associate_cover_image($doc_obj, $filename);
+    }
 
     # include any metadata passed in from previous plugins