summaryrefslogtreecommitdiff
path: root/lib/VN3/VN/JS.pm
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2019-12-30 09:49:13 +0100
committerYorhel <git@yorhel.nl>2019-12-30 09:49:13 +0100
commitd79c982ee876502db2e1a12752667c6a198c2ddc (patch)
treeccd4a4e72e5b0d3dd412bed6aee58044e93893f0 /lib/VN3/VN/JS.pm
parente146ed7bda12d369532e485ca0c2e3d823811854 (diff)
Actually, let's get rid of v3 now that it doesn't work anymore anyway
Diffstat (limited to 'lib/VN3/VN/JS.pm')
-rw-r--r--lib/VN3/VN/JS.pm46
1 files changed, 0 insertions, 46 deletions
diff --git a/lib/VN3/VN/JS.pm b/lib/VN3/VN/JS.pm
deleted file mode 100644
index ec98b768..00000000
--- a/lib/VN3/VN/JS.pm
+++ /dev/null
@@ -1,46 +0,0 @@
-package VN3::VN::JS;
-
-use VN3::Prelude;
-
-
-my $elm_VNResult = elm_api VNResult => { aoh => {
- id => { id => 1 },
- title => {},
- original => {},
- hidden => { anybool => 1 },
-}};
-
-
-json_api '/js/vn.json', {
- search => { type => 'array', scalar => 1, minlength => 1, values => { maxlength => 500 } },
- hidden => { anybool => 1 }
-}, sub {
- my $data = shift;
-
- my $r = tuwf->dbAlli(
- 'SELECT v.id, v.title, v.original, v.hidden',
- 'FROM (', (sql_join 'UNION ALL', map {
- my $qs = s/[%_]//gr;
- my @q = normalize_query $_;
- +(
- # ID search
- /^$VID_RE$/ ? (sql 'SELECT 1, id FROM vn WHERE id =', \"$1") : (),
- # prefix match
- sql('SELECT 2, id FROM vn WHERE title ILIKE', \"$qs%"),
- # substring match
- @q ? (sql 'SELECT 3, id FROM vn WHERE', sql_and map sql('c_search ILIKE', \"%$_%"), @q) : ()
- )
- } @{$data->{search}}),
- ') AS vt (ord, id)',
- 'JOIN vn v ON v.id = vt.id',
- $data->{hidden} ? () : ('WHERE NOT v.hidden'),
- 'GROUP BY v.id, v.title, v.original',
- 'ORDER BY MIN(vt.ord), v.title',
- 'LIMIT 20'
- );
-
- $elm_VNResult->($r);
-};
-
-1;
-