Fix year up to year 2899

This commit is contained in:
Wolfram Schneider 2000-10-28 18:20:39 +00:00
parent ac2951802b
commit 1b587bb8cf
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=8223

View file

@ -15,7 +15,7 @@
# Disclaimer: # Disclaimer:
# This is pretty ugly in places. # This is pretty ugly in places.
# #
# $FreeBSD: www/en/cgi/search.cgi,v 1.16 2000/04/03 08:45:51 phantom Exp $ # $FreeBSD: www/en/cgi/search.cgi,v 1.17 2000/10/10 19:40:43 wosch Exp $
$server_root = '/usr/local/www'; $server_root = '/usr/local/www';
@ -251,7 +251,7 @@ sub docdone {
# print "<input type=\"checkbox\" name=\"rf\" value=\"$docnum\">"; # print "<input type=\"checkbox\" name=\"rf\" value=\"$docnum\">";
print "Score: <em>$score</em>; "; print "Score: <em>$score</em>; ";
$_ = $date; $_ = $date;
/(..)(..)(..)/ && ($yr = $1 + 1900, $mo = $months[$2 - 1], $dy = $3); /(...?)(..)(..)/ && ($yr = $1 + 1900, $mo = $months[$2 - 1], $dy = $3);
print "Lines: <em>$lines</em>; "; print "Lines: <em>$lines</em>; ";
print "${dy}-${mo}-${yr}; "; print "${dy}-${mo}-${yr}; ";
print "Archive: <em>$file</em>"; print "Archive: <em>$file</em>";