Don't print bogus links in error case (Information on Database ...)
This commit is contained in:
parent
1584022ab3
commit
8162e20a6a
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=8821
1 changed files with 2 additions and 2 deletions
|
@ -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)));
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue