--- TWiki.pm.~1.341.~   2004-05-08 21:38:08.000000000 -0500
+++ TWiki.pm    2004-05-17 22:39:39.000000000 -0500
@@ -2496,10 +2496,12 @@
     my $web = extractNameValuePair( $theAttr, "web" ) || "";
     my $webs = extractNameValuePair( $theAttr, "webs" ) || "public";
     my $selection = extractNameValuePair( $theAttr, "selection" ) || "";
+    my $theExclude = extractNameValuePair( $theAttr, "excludetopic" ) || "Web*";
     $selection =~ s/\,/ /g;
     $selection = " $selection ";
     my $marker    = extractNameValuePair( $theAttr, "marker" ) || 'selected="selected"';
 
+    # Get topics
     my @list = ();
     if( $isWeb ) {
         my @webslist = split( /,\s?/, $webs );
@@ -2519,6 +2521,12 @@
             @list = &TWiki::Store::getTopicNames( $web );
         }
     }
+
+    #CodeSmell - this whole thing should be in Search.pm
+    # Exclude topics
+    $theExclude = TWiki::Search::_makeTopicPattern( $theExclude );  # E.g. "Web*, FooBar" ==> "^(Web.*|FooBar)$"  
+    @list = grep( !/$theExclude/, @list ) if( $theExclude ); 
+
+    # Format
     my $text = "";
     my $item = "";
     my $line = "";