Index: TWiki.pm
===================================================================
RCS file: /var/cvs/twiki/lib/TWiki.pm,v
retrieving revision 1.3
diff -c -r1.3 TWiki.pm
*** TWiki.pm    2 Aug 2002 08:17:25 -0000       1.3
--- TWiki.pm    8 Aug 2002 08:19:03 -0000
***************
*** 887,892 ****
--- 887,893 ----
      my( $theAttributes, $theTopic, $theWeb, @theProcessedTopics ) = @_;
      my $incfile = extractNameValuePair( $theAttributes );
      my $pattern = extractNameValuePair( $theAttributes, "pattern" );
+     my $showform = extractNameValuePair( $theAttributes, "form" );
  
      if( $incfile =~ /^http\:/ ) {
          # include web page
***************
*** 960,965 ****
--- 961,973 ----
      
      # FIXME What about attachments?
  
+     # PKL: and what about forms?
+     if ( $showform =~ /^(insert|append|)$/)   {
+       my $form = &renderFormData( $theWeb, $theTopic, $meta );
+       if ( $showform eq "append" )    { $text .= $form; }
+       else                            { $text = $form . $text; }
+     }
+ 
      # recursively process multiple embeded %INCLUDE% statements and prefs
      $text =~ s/%INCLUDE{(.*?)}%/&handleIncludeFile($1, $theTopic, $theWeb, @theProcessedTopics )/geo;