From b7749551f8ac08d6be9d2f7712123a2c4b12a91e Mon Sep 17 00:00:00 2001
From: Roy Johnson <roy.l.johnson@gmail.com>
Date: Wed, 9 Aug 2006 12:53:24 +0000
Subject: [PATCH] fix - Search does only returns recent results

---
 lib/WebGUI/Asset/Wobject/Search.pm | 3 ++-
 sbin/search.pl                     | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Asset/Wobject/Search.pm b/lib/WebGUI/Asset/Wobject/Search.pm
index 17cd65579..9b6a82351 100644
--- a/lib/WebGUI/Asset/Wobject/Search.pm
+++ b/lib/WebGUI/Asset/Wobject/Search.pm
@@ -146,7 +146,8 @@ sub view {
 		my $search = WebGUI::Search->new($self->session);
 		my %rules = (
 			keywords=>$self->session->form->get("keywords"), 
-			lineage=>[WebGUI::Asset->newByDynamicClass($self->session,$self->getValue("searchRoot"))->get("lineage")]
+			lineage=>[WebGUI::Asset->newByDynamicClass($self->session,$self->getValue("searchRoot"))->get("lineage")],
+			creationDate=>{}, # content created at any time by default
 			);
 		my @classes = split("\n",$self->get("classLimiter"));
 		$rules{classes} = \@classes if (scalar(@classes));
diff --git a/sbin/search.pl b/sbin/search.pl
index 96752c6ee..8d9343ed7 100644
--- a/sbin/search.pl
+++ b/sbin/search.pl
@@ -132,7 +132,7 @@ sub searchSite {
 	my $keywords = shift;
 	my $t = [Time::HiRes::gettimeofday()];
 	my $search = WebGUI::Search->new($session, 0);
-	$search->search({keywords=>$keywords});
+	$search->search({keywords=>$keywords, creationDate=>{}}); # make Search.pm include content from all dates by default
 	my $rs = $search->getResultSet;	
 	while (my $data = $rs->hashRef) {
 		print $data->{assetId}."\t".$data->{title}."\n";