Changeset 13727

Timestamp:

2007-01-23T09:32:39+13:00 (17 years ago)

Author:

shaoqun

Message:

added the support to cover images

File:

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

trunk/gsdl/perllib/plugins/NULPlug.pm

@@ -128 +128 @@
     $doc_obj->add_metadata ($doc_obj->get_top_section(), $assoc_field, $file);
     
+     if ($self->{'cover_image'}) {
+    $self->associate_cover_image($doc_obj, $filename);
+    }
+
     # include any metadata passed in from previous plugins 
     my $section = $doc_obj->get_top_section();