Count the results on the direct lookup too
authorSteve McIntyre <steve@einval.com>
Tue, 5 Apr 2011 18:12:23 +0000 (19:12 +0100)
committerSteve McIntyre <steve@einval.com>
Tue, 5 Apr 2011 18:12:23 +0000 (19:12 +0100)
find_file.cgi
find_file_db.pl

index 4986406..46a40fe 100755 (executable)
@@ -196,7 +196,10 @@ foreach my $area (@chosen_areas) {
         }
     } else {
         # We've been given an exact name - do the exact key lookup \o/
-        push (@results, "$query_term $fileinfo{$query_term}");
+        if (defined($fileinfo{$query_term})) {
+            push (@results, "$query_term $fileinfo{$query_term}");
+            $count++;
+        }
     }
     if ($count >= $max_count) {
         last;
@@ -210,7 +213,7 @@ print $q->header,
 if ($count >= $max_count) {
     print $q->p("More than $max_count results for \"$query_term\", showing the first $count only\n");
 } else {   
-    print $q->p("$count results for \"$query_term\"\n");
+    print $q->p("$count result(s) for \"$query_term\"\n");
 }
 if ($count > 0) {
     print "<ol>\n";
index 36e9d3e..62e965e 100755 (executable)
@@ -75,7 +75,10 @@ foreach my $area (@AREAS) {
         }
     } else {
         # We've been given an exact name - do the exact key lookup \o/
-        push (@results, "$query_term $fileinfo{$query_term}");
+        if (defined($fileinfo{$query_term})) {
+            push (@results, "$query_term $fileinfo{$query_term}");
+            $count++;
+        }
     }
     if ($count >= $max_count) {
         last;
@@ -86,7 +89,7 @@ foreach my $area (@AREAS) {
 if ($count >= $max_count) {
     print "More than $max_count results for \"$query_term\", showing the first $count only\n";
 } else {   
-    print "$count results for \"$query_term\":\n";
+    print "$count result(s) for \"$query_term\":\n";
 }
 
 foreach my $result (sort (@results)) {