*** TWiki.pm.orig	Mon Sep 30 16:30:07 2002
--- TWiki.pm	Mon Sep 30 16:59:59 2002
***************
*** 1443,1454 ****
--- 1443,1456 ----
      my $prefix;
      my $usesep;
      my $suffix;
+     my $nowebhome;
      
      if( $args ) {
         $dontRecurse = extractNameValuePair( $args, "dontrecurse" );
         $prefix = extractNameValuePair( $args, "prefix" );
         $usesep = extractNameValuePair( $args, "separator" );
         $suffix = extractNameValuePair( $args, "suffix" );
+        $nowebhome = extractNameValuePair( $args, "nowebhome" );
      }
      
      if( ! $usesep ) {
***************
*** 1471,1476 ****
--- 1473,1481 ----
                 $pWeb = $1;
                 $pTopic = $2;
              }
+ 	    if ( $nowebhome = "on" && $pTopic eq "WebHome" && $pWeb eq $cWeb ) {
+ 	      last;
+ 	    }
              $text = "$pWeb.$pTopic$sep$text";
              $sep = $usesep;
              if( $dontRecurse || ! $name ) {
***************
*** 1501,1508 ****
         $text = "$text$suffix";
      }
  
!     $text = handleCommonTags( $text, $topic, $web );
!     $text = getRenderedVersion( $text, $web );
      
      return $text;
      
--- 1506,1515 ----
         $text = "$text$suffix";
      }
  
!     if( $text ) {
!       $text = handleCommonTags( $text, $topic, $web );
!       $text = getRenderedVersion( $text, $web );
!     }
      
      return $text;