Changeset 23302
- Timestamp:
- 2010-11-09T13:31:00+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/List.pm
r23250 r23302 99 99 'type' => "metadata", 100 100 'deft' => "Title" }, 101 { 'name' => "reverse_sort_leaf_nodes", 102 'desc' => "{List.reverse_sort_leaf_nodes}", 103 'type' => "flag"}, 101 104 { 'name' => "sort_using_unicode_collation", 102 105 'desc' => "{List.sort_using_unicode_collation}", … … 867 870 } 0..$#OIDs ]; 868 871 } 872 if ($self->{'reverse_sort_leaf_nodes'}) { 873 print STDERR "reversing\n"; 874 return reverse @OIDs; 875 } 869 876 return @OIDs; 870 877 }
Note:
See TracChangeset
for help on using the changeset viewer.