word/edit: search query ^ to search root categories

[sheet.git] / word / edit.plp

diff --git a/word/edit.plp b/word/edit.plp
index 1aade3e4d2d64d83f283997f269765bb122eb0a9..f755f25752b76744373b4573147563c2c91214d4 100644 (file)
--- 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",