Don't print bogus links in error case (Information on Database ...)

This commit is contained in:
Wolfram Schneider 2001-02-22 11:51:39 +00:00
parent 1584022ab3
commit 8162e20a6a
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=8821

View file

@ -15,7 +15,7 @@
# Disclaimer:
# This is pretty ugly in places.
#
# $FreeBSD: www/en/cgi/search.cgi,v 1.19 2000/11/05 19:05:43 wosch Exp $
# $FreeBSD: www/en/cgi/search.cgi,v 1.20 2000/12/28 13:37:51 wosch Exp $
$server_root = '/usr/local/www';
@ -135,7 +135,7 @@ sub do_wais {
/:number-of-bytes\s+(\d+)/ && ($bytes = $1);
/:headline "(.*)"/ && ($headline = $1,
$headline =~ s/[Rr]e://); # XXX
/:date "(\d+)"/ && ($date = $1, $hits++,
/:date "(\d+)"/ && $docid !~ /\.src$/ && ($date = $1, $hits++,
push(@mylist, join("\t", $date, $headline, $docid,
$bytes, $lines, $file, $score, $hits)));
}