From bc8200eb0c2a0f25406ce069c824fb5ef3b2c5e2 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 20 Jun 2020 17:18:53 +0200
Subject: [PATCH] word edit: unadvertised search option ?q

---
 writer.plp | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/writer.plp b/writer.plp
index 493f745..66e8f9f 100644
--- a/writer.plp
+++ b/writer.plp
@@ -98,8 +98,20 @@ my %wordcol = (
 	source  => {-label => 'Image'},
 	thumb   => {-label => 'Convert options', -multiple => 1},
 );
-my ($find) = map {{id => $_}} $fields{id} || $Request || ();
 
+if (my $search = $fields{q}) {
+	my %filter = (form => {ilike => '%'.$search.'%'});
+	my $results = $db->select(word => '*', \%filter);
+	say '<h1>Search</h1><ul>';
+	printf("<li><small>%s</small> %s %s</li>\n",
+		$_->{id}, showlink($_->{form}, "/writer/$_->{id}"),
+		sprintf('<img src="/%s" style="height:3ex; width:auto" />', Shiar_Sheet::FormRow::imagepath($_ => 'thumb')) x defined $_->{thumb}
+	) for $results->hashes;
+	say "</ul>\n";
+	exit;
+}
+
+my ($find) = map {{id => $_}} $fields{id} || $Request || ();
 my $row;
 if ($find) {
 	$row = $db->select(word => '*', $find)->hash
-- 
2.30.0