(SearchFreeNewPages): Bugfix.

This commit is contained in:
Alex Schroeder
2007-10-11 10:51:54 +00:00
parent f79fcedbde
commit ccc56f7cd2

View File

@@ -56,7 +56,7 @@ sub process {
package OddMuse;
$ModulesDescription .= '<p>$Id: search-freetext.pl,v 1.58 2007/10/11 10:46:34 as Exp $</p>';
$ModulesDescription .= '<p>$Id: search-freetext.pl,v 1.59 2007/10/11 10:51:54 as Exp $</p>';
=head2 User Interface
@@ -188,7 +188,7 @@ SearchFreeTextIndex.
sub SearchFreeNewPages {
my $ts = 0;
$ts = (stat("$DataDir/word-update.db"))[9] if -f "$DataDir/word.db";
$ts = (stat("$DataDir/word.db"))[9] if -f "$DataDir/word.db";
my %index = ();
foreach my $line (GetRcLines($ts)) {
my ($ts, $id) = split(/$FS/o, $line);