Fix announcement sorting

2022-11-12 16:34:04 -08:00 · 2022-11-12 16:34:04 -08:00 · 646b85aade
parent 0c61594252
commit 646b85aade
1 changed files with 1 additions and 1 deletions
--- a/lib/unix_dog/Controller/Main.pm
+++ b/lib/unix_dog/Controller/Main.pm
@ -104,7 +104,7 @@ sub announcements ($self) {
        $next_page = $page + 1;
    }

-    my @chosen = (sort keys %announcements)[$start_index..$end_index];
+    my @chosen = (sort { $b cmp $a } (keys %announcements))[$start_index..$end_index];
    my @items;
    for my $key (@chosen) {
        push @items, $announcements{$key};