blob: c6e142e26ec86c1068a9ecb91b0880b1848050da (
plain)
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
33
34
35
36
37
38
39
40
41
42
43
|
package VNWeb::Releases::Engines;
use VNWeb::Prelude;
use VNWeb::AdvSearch;
TUWF::get qr{/r/engines}, sub {
my $list = tuwf->dbAlli('
SELECT engine, count(*) AS cnt
FROM releases
WHERE NOT hidden AND engine <> \'\'
GROUP BY engine
ORDER BY count(*) DESC'
);
framework_ title => 'Engine list', sub {
div_ class => 'mainbox', sub {
h1_ 'Engine list';
p_ sub {
lit_ q{
This is a list of all engines currently associated with releases. This
list can be used as reference when filling out the engine field for a
release and to find inconsistencies in the engine names. See the <a
href="/d3#3">releases guidelines</a> for more information.
};
};
};
div_ class => 'mainbox browse', sub {
table_ class => 'stripe', sub {
my $c = tuwf->compile({advsearch => 'r'});
tr_ sub {
td_ class => 'tc1', style => 'text-align: right; width: 80px', $_->{cnt};
td_ class => 'tc2', sub {
a_ href => '/r?f='.$c->validate([engine => '=', $_->{engine}])->data->query_encode(), $_->{engine};
}
} for @$list;
};
};
};
};
1;
|