summaryrefslogtreecommitdiff
path: root/lib/VNWeb/Releases/Elm.pm
blob: 7f0578e4557542671f7f7079986ca0b848b4be5b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
package VNWeb::Releases::Elm;

use VNWeb::Prelude;
use VNWeb::Releases::Lib;


# Used by UList.Opt and CharEdit to fetch releases from a VN id.
elm_api Release => undef, { vid => { id => 1 } }, sub {
    my($data) = @_;
    elm_Releases releases_by_vn $data->{vid};
};


elm_api Resolutions => undef, {}, sub {
    elm_Resolutions [ map +{ resolution => resolution($_), count => $_->{count} }, tuwf->dbAlli(q{
        SELECT reso_x, reso_y, count(*) AS count FROM releases WHERE NOT hidden AND NOT (reso_x = 0 AND reso_y = 0)
         GROUP BY reso_x, reso_y ORDER BY count(*) DESC
    })->@* ];
};

1;