Capitalise some keywords

[ypp-sc-tools.db-live.git] / yarrg / web / lookup

diff --git a/yarrg/web/lookup b/yarrg/web/lookup
index 8475f689d4bb31b3bc452d5a99eccf163a7895f9..e3c6770c5fbb51cea557ce41a6589bebe3c971f1 100755 (executable)
--- a/yarrg/web/lookup
+++ b/yarrg/web/lookup
@@ -139,7 +139,7 @@ foreach my $var (keys %ARGS) {
                        islandid \d |
                        archipelago \d |
                        debug |
-                       rtsel[ag]_\w+
+                       [RT]\w+
                    )$/x;
        my $val= $ARGS{$var};
        next if $val eq 'none';
@@ -209,7 +209,9 @@ my $results_head_done=0;
 my $someresults= sub {
        return if $results_head_done;
        $results_head_done=1;
-       print "\n<h1>Results</h1>\n";
+       my ($h)= @_;
+       $h= 'Results' if !$h;
+       print "\n<h1>$h</h1>\n";
 };
 
 </%perl>