Changeset 23302


Ignore:
Timestamp:
2010-11-09T13:31:00+13:00 (11 years ago)
Author:
kjdon
Message:

added reverse_sort_leaf_nodes option

File:
1 edited

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/classify/List.pm

    r23250 r23302  
    9999    'type' => "metadata",
    100100    'deft' => "Title" },
     101      { 'name' => "reverse_sort_leaf_nodes",
     102    'desc' => "{List.reverse_sort_leaf_nodes}",
     103    'type' => "flag"},
    101104      { 'name' => "sort_using_unicode_collation",
    102105    'desc' => "{List.sort_using_unicode_collation}",
     
    867870    } 0..$#OIDs ];
    868871    }
     872    if ($self->{'reverse_sort_leaf_nodes'}) {
     873    print STDERR "reversing\n";
     874    return reverse @OIDs;
     875    }
    869876    return @OIDs;
    870877}
Note: See TracChangeset for help on using the changeset viewer.