Support per-language ordinal styles.

[wloh] / include / common.pm

diff --git a/include/common.pm b/include/common.pm
index 7ffaeeee0e8fc7ab4cae055559e7621a81ef3675..9348b15da9a10bb67736234c8ad465d575c5733c 100644 (file)
--- a/include/common.pm
+++ b/include/common.pm
@@ -135,4 +135,30 @@ sub process_template {
        print $doc->toString;
 }
 
+sub get_ordinal {
+       my ($num, $locale) = @_;
+       my $translation = $translation_mapping{$locale} // 'en';
+
+       if ($translation eq 'no') {
+               return $num . ".";
+       } elsif ($translation eq 'en') {
+               # http://en.wikipedia.org/wiki/English_numerals#Ordinal_numbers
+               my $units = $num % 10;
+               my $tens = (($num - $units) / 10) % 10;
+               if ($tens == 1) {
+                       return $num . "th";
+               } elsif ($units == 1) {
+                       return $num . "st";
+               } elsif ($units == 2) {
+                       return $num . "nd";
+               } elsif ($units == 3) {
+                       return $num . "rd";
+               } else {
+                       return $num . "th";
+               }
+       } else {
+               die "Missing ordinal strategy for locale $locale";
+       }       
+}
+
 1;