CommentPlugin incorrectly allows comment submission in a
CompareRevisionsPlugin display.
Needs a better mechanism, but it's easy to extend the current kludge:
--- lib/TWiki/Plugins/CommentPlugin.pm.4.2.3 2008-09-11 23:41:58.000000000 -0400
+++ lib/TWiki/Plugins/CommentPlugin.pm 2009-01-11 06:48:14.000000000 -0500
@@ -62,13 +62,13 @@
return unless $_[0] =~ m/%COMMENT({.*?})?%/o;
# SMELL: Nasty, tacky way to find out where we were invoked from
my $scriptname = $ENV{'SCRIPT_NAME'} || '';
# SMELL: unreliable
- my $previewing = ($scriptname =~ /\/(preview|gnusave|rdiff)/);
+ my $previewing = ($scriptname =~ /\/(preview|gnusave|rdiff|compare)/);
TWiki::Plugins::CommentPlugin::Comment::prompt( $previewing,
$_[0], $web, $topic );
}
sub beforeSaveHandler {
#my ( $text, $topic, $web ) = @_;
--
TWiki:Main/TimotheLitt
- 11 Jan 2009