Changeset 28033

Timestamp:

2013-08-13T14:19:29+12:00 (11 years ago)

Author:

kjdon

Message:

sortfields rank and none don't have a long name, just use the same name for each part

File:

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

main/trunk/greenstone2/perllib/buildConfigxml.pm

@@ -506 +506 @@
     &write_line('COLCFG', ["<sortList>"]);
     foreach my $sf (@$sortlist) {
-        my $sortf = $sortmap->{$sf};
-        &write_line('COLCFG', ["<sort name=\"", $sortf, "\" shortname=\"", $sf, "\" />"]);
+        my $sortf;
+        if ($sf eq "rank" || $sf eq "none") {
+        $sortf = $sf;
+        } else {
+        $sortf = $sortmap->{$sf};
+        }
+        &write_line('COLCFG', ["<sort name=\"", $sortf, "\" shortname=\"", $sf, "\" />"]);
+        
     }
     &write_line('COLCFG', ["</sortList>"]);