Implemented: Formatted Search with $parent token

The FormattedSearch supports now a $parent and $parent(20) token that shows the parent topic.

Example: (works once TWiki.org is updated)

• Write: %SEARCH{ "^%TOPIC%$" scope="topic" regex="on" nosearch="on" nototal="on" format="$parent" }%
• Get (for WebHome):

Change is in SVN; the FormattedSearch doc is updated.

*** bu4/Search.pm       Fri Jul 23 00:14:59 2004
--- Search.pm   Mon Jul 26 19:30:38 2004
***************
*** 957,962 ****
--- 957,964 ----
              } elsif( $theFormat ) {
                  # free format, added PTh 10 Oct 2001
                  $tempVal =~ s/\$summary/&TWiki::makeTopicSummary( $text, $topic, $thisWebName )/geos;
+                 $tempVal =~ s/\$parent\(([^\)]*)\)/breakName( getMetaParent( $meta ), $1 )/geos;
+                 $tempVal =~ s/\$parent/getMetaParent( $meta )/geos;
                  $tempVal =~ s/\$formfield\(\s*([^\)]*)\s*\)/getMetaFormField( $meta, $1 )/geos;
                  $tempVal =~ s/\$formname/_getMetaFormName( $meta )/geos;
                  $tempVal =~ s/\$pattern\((.*?\s*\.\*)\)/getTextPattern( $text, $1 )/geos;
***************
*** 1105,1110 ****
--- 1107,1131 ----
  }

  #=========================
+ =pod
+
+ ---++ sub getMetaParent( $theMeta )
+
+ Not yet documented.
+
+ =cut
+
+ sub getMetaParent
+ {
+     my( $theMeta ) = @_;
+
+     my $value = "";
+     my %parent = $theMeta->findOne( "TOPICPARENT" );
+     $value = $parent{"name"} if( %parent );
+     return $value;
+ }
+
+ #=========================
  =pod

  ---++ sub getMetaFormField (  $theMeta, $theParams  )

-- PeterThoeny - 27 Jul 2004

This does not work with the current TWiki (4).

-- ArthurClemens - 27 Jun 2006