Index: lib/TWiki.pm
===================================================================
RCS file: /cvsroot/twiki/twiki/lib/TWiki.pm,v
retrieving revision 1.24
diff -c -r1.24 TWiki.pm
*** lib/TWiki.pm	2001/04/30 19:40:56	1.24
--- lib/TWiki.pm	2001/05/04 17:55:50
***************
*** 810,815 ****
--- 812,827 ----
  }
  
  # =========================
+ sub handleSpacedTopicNoURL
+ {
+     my( $theTopic ) = @_;
+     my $spacedTopic = $theTopic;
+     $spacedTopic =~ s/([a-z]+)([A-Z0-9]+)/$1 *$2/go;   
+     return $spacedTopic;
+ }
+ 
+ 
+ # =========================
  sub handleInternalTags
  {
      # modify arguments directly, e.g. call by reference
***************
*** 825,830 ****
--- 837,843 ----
      $_[0] =~ s/%BASETOPIC%/$topicName/go;
      $_[0] =~ s/%INCLUDINGTOPIC%/$includingTopicName/go;
      $_[0] =~ s/%SPACEDTOPIC%/&handleSpacedTopic($_[1])/geo;
+     $_[0] =~ s/%SPACEDTOPICNOURL%/&handleSpacedTopicNoURL($_[1])/geo;
      $_[0] =~ s/%WEB%/$_[2]/go;
      $_[0] =~ s/%BASEWEB%/$webName/go;
      $_[0] =~ s/%INCLUDINGWEB%/$includingWebName/go;