1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
package VN3::Release::JS;
use VN3::Prelude;
my $elm_ReleaseResult = elm_api ReleaseResult => { aoh => {
id => { id => 1 },
title => {},
lang => { type => 'array', values => {} },
}};
# Fetch all releases assigned to a VN
json_api '/js/release.json', {
vid => { id => 1 },
}, sub {
my $vid = shift->{vid};
my $r = tuwf->dbAlli(q{
SELECT r.id, r.title
FROM releases r
JOIN releases_vn rv ON rv.id = r.id
WHERE NOT r.hidden
AND rv.vid =}, \$vid, q{
ORDER BY r.id
});
enrich_list1 lang => id => id => sub { sql 'SELECT id, lang FROM releases_lang WHERE id IN', $_[0], 'ORDER BY id, lang' }, $r;
$elm_ReleaseResult->($r);
};
1;
|