1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
package VNWeb::Releases::Elm;
use VNWeb::Prelude;
# Used by UList.Opt and CharEdit to fetch releases from a VN id.
elm_api Release => undef, { vid => { id => 1 } }, sub {
my($data) = @_;
my $l = tuwf->dbAlli(
'SELECT r.id, r.title, r.original, r.type AS rtype, r.released
FROM releases r
JOIN releases_vn rv ON rv.id = r.id
WHERE NOT r.hidden
AND rv.vid =', \$data->{vid},
'ORDER BY r.released, r.title, r.id'
);
enrich_flatten lang => id => id => sub { sql('SELECT id, lang FROM releases_lang WHERE id IN', $_, 'ORDER BY lang') }, $l;
enrich_flatten platforms => id => id => sub { sql('SELECT id, platform FROM releases_platforms WHERE id IN', $_, 'ORDER BY platform') }, $l;
elm_Releases $l;
};
1;
|