Changeset 23302

Show
Ignore:
Timestamp:
09.11.2010 13:31:00 (9 years ago)
Author:
kjdon
Message:

added reverse_sort_leaf_nodes option

Files:
1 modified

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}