Changeset 5919 for trunk/gsdl/perllib/plugins/DBPlug.pm

Timestamp:

2003-11-20T13:48:25+13:00 (20 years ago)

Author:

kjdon

Message:

each plugin now adds a metadata field to teh doc obj based on the plugin name. For example, if a Word document doc.xml file will end up with metadata name='Word' value=1. You should be able to test for thismetadata and use it in format statements

File:

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

trunk/gsdl/perllib/plugins/DBPlug.pm

@@ -59 +59 @@
     my ($class) = @_;
     my $self = new BasPlug ($class, @_);
-
+    $self->{'plugin_type'} = "DB";
     my $option_list = $self->{'option_list'};
     push( @{$option_list}, $options );
@@ -203 +203 @@
         $self->associate_cover_image($doc_obj, $filename);
     }
-    
+    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "$self->{'plugin_type'}", "1");
+
 
     # include any metadata passed in from previous plugins