From 8b05556284ebbd6f2af9c9168b3ff3f3c69615d2 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 20 Oct 2020 22:36:23 +0200
Subject: [PATCH] word: apply subselection before shuffle

---
 word.plp | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/word.plp b/word.plp
index 2c16a24..050ad90 100644
--- a/word.plp
+++ b/word.plp
@@ -93,7 +93,18 @@ sub printimgs {
 
 say '<section class="gallery">';
 if (exists $get{q}) {
-	my @rows = map {@$_} values %{$table}; # flatten categories
+	my @rows;
+	if ($Request) {
+		my @query = $Request;
+		while (@query) {
+			push @rows, grep { (split /:/)[1] <= $limit } @query;
+			s/:.*// for @query;
+			@query = map {$_ ? @{$_} : ()} @{$table}{@query};
+		}
+	}
+	else {
+		@rows = map {ref ? @$_ : $_} values %{$table}; # flatten categories
+	}
 	@rows = sort { rand <=> .5 } @rows;
 	$table = {};
 	printimgs(@rows);
-- 
2.30.0