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/Staff/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/Staff/JS.pm')
-rw-r--r-- | lib/VN3/Staff/JS.pm | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/lib/VN3/Staff/JS.pm b/lib/VN3/Staff/JS.pm deleted file mode 100644 index 58ce947b..00000000 --- a/lib/VN3/Staff/JS.pm +++ /dev/null @@ -1,43 +0,0 @@ -package Staff::JS; - -use VN3::Prelude; - -my $elm_StaffResult = elm_api StaffResult => { aoh => { - id => { id => 1 }, - aid => { id => 1 }, - name => {}, - original => {}, -}}; - -json_api '/js/staff.json', { - search => { maxlength => 500 } -}, sub { - my $q = shift->{search}; - - # XXX: This query is kinda slow - my $qs = $q =~ s/[%_]//gr; - my $r = tuwf->dbAlli( - 'SELECT s.id, st.aid, st.name, st.original', - 'FROM (', - # ID search - $q =~ /^$SID_RE$/ ? ('SELECT 1, id, aid, name, original FROM staff_alias WHERE id =', \"$1", 'UNION ALL') : (), - # exact match - 'SELECT 2, id, aid, name, original FROM staff_alias WHERE lower(name) = lower(', \$q, ") OR lower(translate(original,' ', '')) = lower(", \($q =~ s/\s//gr), ')', - 'UNION ALL', - # prefix match - 'SELECT 3, id, aid, name, original FROM staff_alias WHERE name ILIKE', \"$qs%", ' OR original ILIKE', \"$qs%", - 'UNION ALL', - # substring match - 'SELECT 4, id, aid, name, original FROM staff_alias WHERE name ILIKE', \"%$qs%", ' OR original ILIKE', \"%$qs%", - ') AS st (ord, id, aid, name, original)', - 'JOIN staff s ON s.id = st.id', - 'WHERE NOT s.hidden', - 'GROUP BY s.id, st.aid, st.name, st.original', - 'ORDER BY MIN(st.ord), st.name', - 'LIMIT 20' - ); - - $elm_StaffResult->($r); -}; - -1; |