word: ignore non-numeric selection arguments

diff --git a/word.plp b/word.plp
index 9ea54e89f7d002937e0c21dc12caf12ce5d2ff88..aed42fd57b997f08f6b1904c587df1f91de3b5d3 100644 (file)
--- 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>';