From e3a5ffc7fe48b267b3482dd646e617dc7f18dc88 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 27 Dec 2021 01:00:54 +0100
Subject: [PATCH] word: ignore non-numeric selection arguments

---
 word.plp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/word.plp b/word.plp
index 9ea54e8..aed42fd 100644
--- a/word.plp
+++ b/word.plp
@@ -122,7 +122,10 @@ if (exists $get{q}) {
 	$table = {};
 	printimgs(@rows);
 }
+elsif ($Request and $Request =~ /^\d+$/) {
+	printimgs([$Request]);
+}
 else {
-	printimgs($Request || $table->{''}->[0]);
+	printimgs($table->{''}->[0]);
 }
 say '</section>';
-- 
2.30.0