Changeset 27973

Timestamp:

2013-08-05T19:21:35+12:00 (11 years ago)

Author:

ak19

Message:

Reinstating Dr Bainbridge's fix to getting the extra meta in sorted order for diffcol. Will be recommitting rebuilt model collections.

File:

• main/trunk/greenstone2/perllib/plugins/BasePlugin.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugins/BasePlugin.pm

@@ -1302 +1302 @@
 # in doc.xml. Necessary for the ex.PDF.* and ex.File.* meta that's extracted in
 # the PDFBox collection, as the order of these varies between CentOS and Ubuntu.
-#    foreach my $field (sort keys(%$metadata)) {
-    foreach my $field (keys(%$metadata)) {
+    foreach my $field (sort keys(%$metadata)) {
+#    foreach my $field (keys(%$metadata)) {
     # $metadata->{$field} may be an array reference
     if ($field eq "gsdlassocfile_tobe") {