Implemented: Formatted Search with $formname variable

Using a FormattedSearch you can already retrieve the value of form fields using $formfield(). With the new $formname variable you can get the name of the form attached to a topic.

Contributors:
-- FrankSmith - 05 Oct 2002
-- PeterThoeny - 15 Feb 2004

Here's the code I put into Search.pm to implement this.

With this minor enhancement, I was able to implement a Slashdot style site using a few lines of TWiki code. Check it out at http://emdebian.sourceforge.net/cgi-bin/twiki/view/Main/AtAGlance

Be aware that it's a work in progress...

#=========================
sub getMetaFormName
{
    my( $theMeta ) = @_;

    my %form = $theMeta->findOne( "FORM" );
    if ( %form ) {
        my $formName = $form{"name"};
        return $formName;
    } else {
        return "";
    };

}

.....

           } elsif( $theFormat ) {
                # free format, added PTh 10 Oct 2001
                if( ! $text ) {
                    ( $meta, $text ) = &TWiki::Store::readTopic( $thisWebName, $topic );
                }
                $tempVal =~ s/\$summary/&TWiki::makeTopicSummary( $text, $topic, $thisWebName )/geos;
                $tempVal =~ s/\$formfield\(["']?\s*([^\)'"]*)\s*['"]?\)/getMetaFormField( $meta, $1 )/geos;
                $tempVal =~ s/\$pattern\(\s*(.*?\s*\.\*)\)/getTextPattern( $text, $1 )/geos;
                $tempVal =~ s/\$formname/getMetaFormName( $meta )/geos;

                my @lines = split("\n", $text);
                my $parahits = "<ul>";
                foreach my $line (@lines) {
                   my $ts = &TWiki::makeTopicSummary( $line, $topic, $thisWebName, -1 );
                   $ts =~ s/($theSearchVal)/\<b\>$1\<\/b\>/g;
                   if ($line =~ /$theSearchVal/) {
                       $parahits .= "<li>" . "*" . $topicFormField{$topic}. ":* " . $ts . " " . $topic . " ";
                   };
                };

-- FrankSmith - 05 Oct 2002

This enhancement is now in TWikiAlphaRelease. Thanks Frank!

Index: Search.pm
===================================================================
RCS file: /cvsroot/twiki/twiki/lib/TWiki/Search.pm,v
retrieving revision 1.67
diff -c -r1.67 Search.pm
*** Search.pm   9 Feb 2004 05:02:15 -0000       1.67
--- Search.pm   15 Feb 2004 21:03:21 -0000
***************
*** 877,882 ****
--- 877,883 ----
                  }
                  $tempVal =~ s/\$summary/&TWiki::makeTopicSummary( $text, $topic, $thisWebName )/geos;
                  $tempVal =~ s/\$formfield\(\s*([^\)]*)\s*\)/getMetaFormField( $meta, $1 )/geos;
+                 $tempVal =~ s/\$formname/_getMetaFormName( $meta )/geos;
                  $tempVal =~ s/\$pattern\(\s*(.*?\s*\.\*)\)/getTextPattern( $text, $1 )/geos;
                  $tempVal =~ s/\$nop(\(\))?//gos;      # remove filler, useful for nested search
                  $tempVal =~ s/\$quot(\(\))?/\"/gos;   # expand double quote
***************
*** 1025,1030 ****
--- 1026,1051 ----
  #=========================
  =pod

+ ---++ sub _getMetaFormName (  $theMeta )
+
+ Returns the name of the form attached to the topic
+
+ =cut
+
+ sub _getMetaFormName
+ {
+     my( $theMeta ) = @_;
+
+     my %aForm = $theMeta->findOne( "FORM" );
+     if( %aForm ) {
+         return $aForm{"name"};
+     }
+     return "";
+ }
+
+ #=========================
+ =pod
+
  ---++ sub getTextPattern (  $theText, $thePattern  )

  Not yet documented.

-- PeterThoeny - 15 Feb 2004