Changeset 6137

Timestamp:

2003-12-08T12:07:32+13:00 (20 years ago)

Author:

kjdon

Message:

added new metadata field - SourceSegment, set when the source doc has been split into parts, to indicate which part of the original Source this doc is

File:

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

trunk/gsdl/perllib/plugins/SplitPlug.pm

@@ -67 +67 @@
 
     $self->{'plugin_type'} = "SplitPlug";
+    
     # 14-05-02 To allow for proper inheritance of arguments - John Thompson
     my $option_list = $self->{'option_list'};
@@ -176 +177 @@
     my ($filemeta) = $file =~ /([^\\\/]+)$/;
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Source", &ghtml::dmsafe($filemeta));
+    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "SourceSegment", "$segment");
     if ($self->{'cover_image'}) {
       $self->associate_cover_image($doc_obj, $filename);