From 67625d9baadd2fcafc37090976a7b781591b8938 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Thu, 3 Jul 2003 08:57:45 +0000
Subject: [PATCH] Print the table of error codes only in detail mode.

---
 bin/mo-score | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/bin/mo-score b/bin/mo-score
index e04c47b..358b20a 100755
--- a/bin/mo-score
+++ b/bin/mo-score
@@ -60,6 +60,7 @@ foreach $u (keys %users) {
 			$ttest = $1;
 			$tpts = $2;
 			$trem = $3;
+			$ttest =~ s/[^0-9]//g;
 			$known_tests{$t}{$ttest} = 1;
 			$results{$u}{$t}{$ttest} = $tpts;
 			$remarks{$u}{$t}{$ttest} = $trem;
@@ -192,9 +193,11 @@ if ($debug) {
 		$hdr = 0;
 	}
 	print "</TABLE>\n";
-	print "<H2>Error codes</H2><UL>\n";
-	foreach $r (sort keys %error_codes) { print "<LI>$r: $error_codes{$r}\n"; }
-	print "</UL>\n";
+	if ($detail) {
+		print "<H2>Error codes</H2><UL>\n";
+		foreach $r (sort keys %error_codes) { print "<LI>$r: $error_codes{$r}\n"; }
+		print "</UL>\n";
+	}
 	print "</BODY></HTML>\n";
 } elsif ($tex) {
 	print "\\error{TeX output not supported yet!}\n";
-- 
2.39.2