diff options
author | Yorhel <git@yorhel.nl> | 2019-12-30 09:49:13 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2019-12-30 09:49:13 +0100 |
commit | d79c982ee876502db2e1a12752667c6a198c2ddc (patch) | |
tree | ccd4a4e72e5b0d3dd412bed6aee58044e93893f0 /lib/VN3/VN/JS.pm | |
parent | e146ed7bda12d369532e485ca0c2e3d823811854 (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.pm | 46 |
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; - |