Changeset 31567
- Timestamp:
- 2017-04-03T14:21:18+12:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/List.pm
r29094 r31567 684 684 } 685 685 } 686 } 686 } 687 687 else { 688 688 # The easier case, just add a partition … … 968 968 } 969 969 else { 970 return sort(@metadata_values); 971 } 972 } 970 return sort { $self->alpha_numeric_cmp($a,$b) }(@metadata_values); 971 } 972 } 973 974 975 sub alpha_numeric_cmp 976 { 977 my ($self,$a,$b) = @_; 978 979 if ($a =~ m/^(\d+(\.\d+)?)/) 980 { 981 my $val_a = $1; 982 if ($b =~ m/^(\d+(\.\d+)?)/) 983 { 984 my $val_b = $1; 985 if ($val_a != $val_b) 986 { 987 return ($val_a <=> $val_b); 988 } 989 } 990 } 991 992 return ($a cmp $b); 993 } 994 973 995 974 996 sub get_metadata_value_display {
Note:
See TracChangeset
for help on using the changeset viewer.