diff options
Diffstat (limited to 'lib/VN3/Trait')
-rw-r--r-- | lib/VN3/Trait/JS.pm | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/lib/VN3/Trait/JS.pm b/lib/VN3/Trait/JS.pm new file mode 100644 index 00000000..d8844ddd --- /dev/null +++ b/lib/VN3/Trait/JS.pm @@ -0,0 +1,38 @@ +package VN3::Trait::JS; + +use VN3::Prelude; + + +# Returns only approved and applicable traits +json_api '/js/trait.json', { + search => { maxlength => 500 } +}, sub { + my $q = shift->{search}; + + my $qs = $q =~ s/[%_]//gr; + my $r = tuwf->dbAlli( + 'SELECT t.id, t.name, g.id AS gid, g.name AS group', + 'FROM (', + # ID search + $q =~ /^$IID_RE$/ ? ('SELECT 1, id FROM traits WHERE id =', \"$1", 'UNION ALL') : (), + # exact match + 'SELECT 2, id FROM traits WHERE lower(name) = lower(', \$q, ")", + 'UNION ALL', + # prefix match + 'SELECT 3, id FROM traits WHERE name ILIKE', \"$qs%", + 'UNION ALL', + # substring match + alias search + 'SELECT 4, id FROM traits WHERE name ILIKE', \"%$qs%", ' OR alias ILIKE', \"%$qs%", + ') AS tt (ord, id)', + 'JOIN traits t ON t.id = tt.id', + 'LEFT JOIN traits g ON g.id = t.group', + 'WHERE t.state = 2 AND t.applicable', + 'GROUP BY t.id, t.name, g.id, g.name', + 'ORDER BY MIN(tt.ord), t.name', + 'LIMIT 20' + ); + + tuwf->resJSON({TraitResult => $r}); +}; + +1; |