Changeset 29476 for main/trunk/greenstone2/perllib/classify/AZCompactList.pm

Timestamp:

2014-11-28T17:09:12+13:00 (9 years ago)

Author:

sjs49

Message:

First of 2 commits to get diffcol on the 64 bit Ubuntu that has perl 5.18 to work again for the Multimedia and MARC-Singlefile collections. This commit does a sort keys once in both AZCompactList and MARCPlugin. Without the sort keys change to MARCPlugin, various entries of dc.Meta fields are stored in different orders each time. Without the sort keys change to AZCompactList, nodes with identical titles/names that differ only in capitalisation are sorted in a different order each time.

File:

• main/trunk/greenstone2/perllib/classify/AZCompactList.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/classify/AZCompactList.pm

@@ -332 +332 @@
         my $metavalue = $mvp->{'mv'};
         $metavalue =~ s!^-!\\-!; # in case it starts with "-"
-        my $cs_metavalue = $mvp->{'mv'}; # case sensative
+        my $cs_metavalue = $mvp->{'mv'}; # case sensitive
         if ($mtfreq{$metavalue} >= $self->{'mingroup'})
         {
@@ -377 +377 @@
     $metaname = join('/',@metaname_list);
     }
-    foreach $metavalue (keys %mtfreq)
+    foreach $metavalue (sort keys %mtfreq)
     {
     if ($mtfreq{$metavalue} >= $mingroup)