VN::Page: More fiddling with release language ordering

Fixes https://vndb.org/t2520.551

Also creates a language -> list of releases lookup table for faster
listings if there are many releases.

1 files changed, 8 insertions, 3 deletions

diff --git a/lib/VNWeb/VN/Page.pm b/lib/VNWeb/VN/Page.pm
index ecd7f6cf..052d645f 100644
--- a/lib/VNWeb/VN/Page.pm
+++ b/lib/VNWeb/VN/Page.pm
@@ -438,8 +438,13 @@ sub releases_ {
 
     enrich_release $v->{releases};
     $v->{releases} = [ sort { $a->{released} <=> $b->{released} || idcmp($a->{id}, $b->{id}) } $v->{releases}->@* ];
-    my %lang;
-    my @lang = grep !$lang{$_}++, map +(sort { ($b eq $v->{olang}) cmp ($a eq $v->{olang}) || $a cmp $b } $_->{lang}->@*), $v->{releases}->@*;
+
+    my(%lang, %langrel);
+    for my $r ($v->{releases}->@*) {
+        push $lang{$_}->@*, $r for $r->{lang}->@*;
+    }
+    $langrel{$_} = min map $_->{released}, $lang{$_}->@* for keys %lang;
+    my @lang = sort { $langrel{$a} <=> $langrel{$b} || ($b eq $v->{olang}) cmp ($a eq $v->{olang}) || $a cmp $b } keys %lang;
 
     my sub lang_ {
         my($lang) = @_;
@@ -450,7 +455,7 @@ sub releases_ {
             }
         };
         my $ropt = { id => $lang };
-        release_row_ $_, $ropt for grep grep($_ eq $lang, $_->{lang}->@*), $v->{releases}->@*;
+        release_row_ $_, $ropt for $lang{$lang}->@*;
     }
 
     div_ class => 'mainbox', sub {