Changeset 23302

Timestamp:

2010-11-09T13:31:00+13:00 (13 years ago)

Author:

kjdon

Message:

added reverse_sort_leaf_nodes option

File:

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

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

@@ -99 +99 @@
     'type' => "metadata",
     'deft' => "Title" },
+      { 'name' => "reverse_sort_leaf_nodes",
+    'desc' => "{List.reverse_sort_leaf_nodes}",
+    'type' => "flag"},
       { 'name' => "sort_using_unicode_collation",
     'desc' => "{List.sort_using_unicode_collation}",
@@ -867 +870 @@
     } 0..$#OIDs ];
     }
+    if ($self->{'reverse_sort_leaf_nodes'}) {
+    print STDERR "reversing\n";
+    return reverse @OIDs;
+    }
     return @OIDs;
 }