Changeset 5919 for trunk/gsdl/perllib/plugins/SRCPlug.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/SRCPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/SRCPlug.pm

@@ -82 +82 @@
     my ($class) = @_;
     my $self = new BasPlug ($class, @_);
-    
+    $self->{'plugin_type'} = "SRC";
     # 14-05-02 To allow for proper inheritance of arguments - John Thompson
     my $option_list = $self->{'option_list'};