Fixed previous commit in list-search.pl

This commit is contained in:
Radomir Dopieralski
2007-11-13 20:24:50 +00:00
parent 091317f51d
commit 35b3530ced

View File

@@ -16,7 +16,7 @@
# 59 Temple Place, Suite 330
# Boston, MA 02111-1307 USA
$ModulesDescription .= '<p>$Id: search-list.pl,v 1.9 2007/11/13 20:22:05 sheep Exp $</p>';
$ModulesDescription .= '<p>$Id: search-list.pl,v 1.10 2007/11/13 20:24:50 sheep Exp $</p>';
push(@MyRules, \&SearchListRule);
@@ -27,7 +27,10 @@ sub SearchListRule {
Dirty($1);
my ($oldpos, $old_) = (pos, $_);
my $original = $OpenPageName;
my $term = $2 or GetId();
my $term = $2;
if ($term eq "") {
$term = GetId();
}
local ($OpenPageName, %Page);
my %hash = ();
foreach my $id (SearchTitleAndBody($term)) {