Changeset 27949

Show
Ignore:
Timestamp:
01.08.2013 14:43:08 (6 years ago)
Author:
ak19
Message:

Need to sort extra metadata (e.g. ex.PDF.* and ex.File.* meta extracted from the PDFBox tutorial collection) to have these meta appear in a consistent order in doc.xml for diffcol to work correctly.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugins/BasePlugin.pm

    r27306 r27949  
    12991299    my $associate_tail_re = $self->{'associate_tail_re'}; 
    13001300 
    1301     foreach my $field (keys(%$metadata)) { 
     1301# Sort the extra metadata for diffcol so these meta appear in a consistent order 
     1302# in doc.xml. Necessary for the ex.PDF.* and ex.File.* meta that's extracted in 
     1303# the PDFBox collection, as the order of these varies between CentOS and Ubuntu. 
     1304    foreach my $field (sort keys(%$metadata)) { 
    13021305    # $metadata->{$field} may be an array reference 
    13031306    if ($field eq "gsdlassocfile_tobe") {