summaryrefslogtreecommitdiff
path: root/lib/VN3/Staff/JS.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/VN3/Staff/JS.pm')
-rw-r--r--lib/VN3/Staff/JS.pm43
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;