numeric facet sorting

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index 120878c..251cd64 100644 (file)
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -229,15 +229,25 @@ sub facet {
 
        my $sort = $self->param('sort') || 'c';
 
+       # sort facet numerically if more >50% elements are numeric
+       my $numeric = defined $stats->{$name}->{numeric} &&
+               $stats->{$name}->{numeric} > $stats->{$name}->{count} / 2;
+
        my @facet_names = sort {
-               $sort =~ m/a/i ? lc $a cmp lc $b :
-               $sort =~ m/d/i ? lc $b cmp lc $a :
-                       $facet->{$b} <=> $facet->{$a}
-               ;
+               if ( $sort =~ m/a/i ) {
+                       $numeric ? $a <=> $b : lc $a cmp lc $b;
+               } elsif ( $sort =~ m/d/i ) {
+                       $numeric ? $b <=> $a : lc $b cmp lc $a;
+               } elsif ( $sort =~ m/c/i ) {
+                       $facet->{$b} <=> $facet->{$a};
+               } else {
+                       warn "unknown sort: $sort";
+                       $a cmp $b;
+               }
        } keys %$facet;
 
        $self->render( name => $name, facet => $facet, checked => $checked,
-               facet_names => \@facet_names, sort => $sort,
+               facet_names => \@facet_names, sort => $sort, numeric => $numeric,
        );
 }
 

diff --git a/templates/data/facet.html.ep b/templates/data/facet.html.ep
index 8a9f89a..edf70cc 100644 (file)
--- a/templates/data/facet.html.ep
+++ b/templates/data/facet.html.ep
@@ -30,6 +30,8 @@ sort:
 <a href="<%= url_for->query( name => $name, sort => 'c' ) %>">count</a>
 % }
 
+value:
+
 % if ( $sort eq 'a' ) {
 <b>ascending</b>
 % } else {
@@ -41,3 +43,5 @@ sort:
 % } else {
 <a href="<%= url_for->query( name => $name, sort => 'd' ) %>">desceding</a>
 % }
+
+<%= $numeric ? 'numeric' : '' %>