From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 20 Jun 2020 15:18:53 +0000 (+0200)
Subject: word edit: unadvertised search option ?q
X-Git-Tag: v1.13~200
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/bc8200eb0c2a0f25406ce069c824fb5ef3b2c5e2

word edit: unadvertised search option ?q
---

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