Index: lib/TWiki/Search.pm
===================================================================
--- lib/TWiki/Search.pm	(revision 3710)
+++ lib/TWiki/Search.pm	(working copy)
@@ -383,6 +383,7 @@
     my $theTopic =      $params{topic} || "";
     my $theType =       $params{type} || "";
     my $theWebName =    $params{web} || "";
+    my $theDate =       $params{date} || "";
 
     ##$this->writeDebug "Search locale is $TWiki::cfg{SiteLocale}";
 
@@ -658,6 +659,18 @@
             ##$this->writeDebug "Topic list after sort = @topicList";
         }
 
+        if( $theDate ){
+            use TWiki::TimeInterval;
+            my @ends = &TWiki::TimeInterval::parseInterval($theDate);
+            my @resultList=();
+            foreach my $topic (@topicList){
+                # if date falls out of interval: exclude topic from result
+                my $topicdate = $this->store()->getTopicLatestRevTime( $web, $topic );
+                push(@resultList, $topic) unless (($topicdate<$ends[0]) || ($topicdate>$ends[1]));
+            }
+            @topicList = @resultList;   
+        }
+
         # header and footer of $web
         my( $beforeText, $repeatText, $afterText ) = split( /%REPEAT%/, $tmplTable );
         if( $theHeader ) {
Index: lib/TWiki/Store.pm
===================================================================
--- lib/TWiki/Store.pm	(revision 3710)
+++ lib/TWiki/Store.pm	(working copy)
@@ -98,7 +98,7 @@
 
 ---++ ObjectMethod readTopic($user, $web, $topic, $version) -> ($metaObject, $text)
 
-Reads the given version of a topic and it's meta-data. If the version
+Reads the given version of a topic and its meta-data. If the version
 is undef, then read the most recent version. The version number must be
 an integer, or undef for the latest version.