From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 27 Dec 2021 00:00:54 +0000 (+0100)
Subject: word: ignore non-numeric selection arguments
X-Git-Tag: v1.13~69
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/e3a5ffc7fe48b267b3482dd646e617dc7f18dc88

word: ignore non-numeric selection arguments
---

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