--- /Volumes/data/Documents/Projects_Arthur/TWiki Subversion/twiki/lib/TWiki/Render.org.pm      Wed Sep 15 20:51:10 2004
+++ /Volumes/data/Documents/Projects_Arthur/TWiki Subversion/twiki/lib/TWiki/Render.pm  Thu Sep 16 03:18:09 2004
@@ -107,6 +107,7 @@
     my $prefix = "";
     my $suffix = "";
     my $usesep = "";
+    my $format = "";
 
     if( $args ) {
        $dontRecurse = TWiki::extractNameValuePair( $args, "dontrecurse" );
@@ -114,6 +115,7 @@
        $prefix =      TWiki::extractNameValuePair( $args, "prefix" );
        $suffix =      TWiki::extractNameValuePair( $args, "suffix" );
        $usesep =      TWiki::extractNameValuePair( $args, "separator" );
+       $format =      TWiki::extractNameValuePair( $args, "format" );
     }
 
     if( ! $usesep ) {
@@ -139,7 +141,14 @@
             if( $noWebHome && ( $pTopic eq $mainTopicname ) ) {
                last;  # exclude "WebHome"
             }
-            $text = "[[$pWeb.$pTopic][$pTopic]]$sep$text";
+            if ($format) {
+               my $formattedtext = $format;
+               $formattedtext =~ s/\$topic/$pTopic/geos;
+               $formattedtext =~ s/\$web/$pWeb/geos;
+               $text = "$formattedtext$text";
+                       } else {
+                               $text = "[[$pWeb.$pTopic][$pTopic]]$sep$text";
+                       }
             $sep = $usesep;
             if( $dontRecurse || ! $name ) {
                last;