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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
package VNWeb::Releases::List;
use VNDB::Func 'gtintype';
use VNWeb::Prelude;
use VNWeb::AdvSearch;
use VNWeb::Filters;
use VNWeb::Releases::Lib;
sub listing_ {
my($opt, $list, $count) = @_;
my sub url { '?'.query_encode %$opt, @_ }
paginate_ \&url, $opt->{p}, [$count, 50], 't';
div_ class => 'mainbox browse', sub {
table_ class => 'stripe releases', sub {
thead_ sub { tr_ sub {
td_ class => 'tc1', sub { txt_ 'Date'; sortable_ 'released',$opt, \&url; debug_ $list; };
td_ class => 'tc2', sub { txt_ 'Rating'; sortable_ 'minage', $opt, \&url };
td_ class => 'tc3', '';
td_ class => 'tc4', sub { txt_ 'Title'; sortable_ 'title', $opt, \&url };
td_ class => 'tc_icons', '';
td_ class => 'tc5', '';
td_ class => 'tc6', '';
} };
my $ropt = { id => '', lang => 1 };
release_row_ $_, $ropt for @$list;
}
};
paginate_ \&url, $opt->{p}, [$count, 50], 'b';
}
TUWF::get qr{/experimental/r}, sub {
my $opt = tuwf->validate(get =>
q => { onerror => undef },
p => { upage => 1 },
f => { advsearch => 'r' },
s => { onerror => 'title', enum => [qw/released minage title/] },
o => { onerror => 'a', enum => ['a','d'] },
fil => { required => 0 },
)->data;
# URL compatibility with old filters
if(!$opt->{f}->{query} && $opt->{fil}) {
my $q = eval {
tuwf->compile({ advsearch => 'r' })->validate(filter_release_adv filter_parse r => $opt->{fil})->data;
};
if(!$q) {
warn "Filter compatibility conversion failed\n$@";
} else {
return tuwf->resRedirect(tuwf->reqPath().'?'.query_encode(%$opt, fil => undef, f => $q), 'temp');
}
}
$opt->{f} = advsearch_default 'r' if !$opt->{f}{query} && !defined tuwf->reqGet('f');
my @search = map {
my $l = '%'.sql_like($_).'%';
/^\d+$/ && gtintype($_) ? sql 'r.gtin =', \"$_" :
length $_ > 0 ? sql '(r.title ILIKE', \$l, 'OR r.original ILIKE', \$l, 'OR r.catalog =', \"$_", ')' : ();
} split /[ -,._]/, $opt->{q}||'';
my $where = sql_and 'NOT r.hidden', $opt->{f}->sql_where(), @search;
my $time = time;
my($count, $list);
db_maytimeout {
$count = tuwf->dbVali('SELECT count(*) FROM releases r WHERE', $where);
$list = $count ? tuwf->dbPagei({results => 50, page => $opt->{p}}, '
SELECT r.id, r.type, r.patch, r.released, r.gtin, ', sql_extlinks(r => 'r.'), '
FROM releases r
WHERE', $where, '
ORDER BY', sprintf {
title => 'r.title %s, r.released %1$s',
minage => 'r.minage %s, r.title %1$s, r.released %1$s',
released => 'r.released %s, r.id %1$s',
}->{$opt->{s}}, $opt->{o} eq 'a' ? 'ASC' : 'DESC'
) : [];
} || (($count, $list) = (undef, []));
enrich_extlinks r => $list;
enrich_release $list;
$time = time - $time;
framework_ title => 'Browse releases', sub {
div_ class => 'mainbox', sub {
h1_ 'Browse releases';
div_ class => 'warning', sub {
h2_ 'EXPERIMENTAL';
p_ "This is Yorhel's playground. Lots of functionality is missing, lots of stuff is or will be broken. Here be dragons. Etc.";
};
br_;
form_ action => '/experimental/r', method => 'get', sub {
searchbox_ r => $opt->{q}//'';
input_ type => 'hidden', name => 'o', value => $opt->{o};
input_ type => 'hidden', name => 's', value => $opt->{s};
$opt->{f}->elm_;
advsearch_msg_ $count, $time;
};
};
listing_ $opt, $list, $count if $count;
};
};
1;
|