From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 20 Oct 2020 20:36:23 +0000 (+0200)
Subject: word: apply subselection before shuffle
X-Git-Tag: v1.13~195
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/8b05556284ebbd6f2af9c9168b3ff3f3c69615d2

word: apply subselection before shuffle
---

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);