From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 25 Oct 2021 14:36:10 +0000 (+0200)
Subject: word/edit: search query ^ to search root categories
X-Git-Tag: v1.13~124
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/52fd7eff6b7c5bc47fc33313154f1632d8ccf3a1

word/edit: search query ^ to search root categories

Also fix Unicode conversion for anything else.
---

diff --git a/word/edit.plp b/word/edit.plp
index 1aade3e..f755f25 100644
--- a/word/edit.plp
+++ b/word/edit.plp
@@ -112,7 +112,8 @@ my %wordcol = (
 );
 
 if (my $search = $fields{q}) {
-	my %filter = (form => {ilike => '%'.$search.'%'});
+	my %filter = $search eq '^' ? (cat => undef, ref => undef) :
+		(form => {ilike => '%'.parseinput($search).'%'});
 	my $results = $db->select(word => '*', \%filter);
 	say '<h1>Search</h1><ul>';
 	printf("<li><small>%s</small> %s %s</li>\n",