Changeset 20577 for gsdl/trunk/perllib/plugins/MetadataXMLPlugin.pm

Timestamp:

2009-09-10T10:50:05+12:00 (15 years ago)

Author:

davidb

Message:

Changes to support new incremental_mode variable, and to track metadata.xml files more closely so incremental building works when a document is first build without any metadata attached, then then in a subsequent build has metadata from such a source as metadata.xml added.

File:

• gsdl/trunk/perllib/plugins/MetadataXMLPlugin.pm (modified) (3 diffs)

gsdl/trunk/perllib/plugins/MetadataXMLPlugin.pm

@@ -164 +164 @@
 
 
+sub file_block_read {
+    my $self = shift (@_);
+    my ($pluginfo, $base_dir, $file, $block_hash, $metadata, $gli) = @_;
+
+    my $filename = &util::filename_cat($base_dir, $file);
+    if ($filename !~ /metadata\.xml$/ || !-f $filename) {
+        return undef;
+    }
+
+    $block_hash->{'metadata_files'}->{$filename} = 1;
+
+    return 1;
+}
+
 sub metadata_read
 {
@@ -179 +193 @@
     $self->{'metadata-filename'} = $filename;
 
+
     my $outhandle = $self->{'outhandle'};
     
@@ -185 +200 @@
     # add the file to the block list so that it won't be processed in read, as we will do all we can with it here
     $block_hash->{'file_blocks'}->{$filename} = 1;
+
     $self->{'metadataref'} = $extrametadata;
     $self->{'metafileref'} = $extrametafile;