Index: NatSkinPlugin.pm =================================================================== --- NatSkinPlugin.pm (revision 13078) +++ NatSkinPlugin.pm (working copy) @@ -49,7 +49,7 @@ $STARTWW = qr/^|(?<=[\s\(])/m; $ENDWW = qr/$|(?=[\s\,\.\;\:\!\?\)])/m; -$VERSION = '$Rev$'; +$VERSION = '$Rev: 13070 (06 Mar 2007) $'; $RELEASE = '3.00-pre12'; $NO_PREFS_IN_TOPIC = 1; $SHORTDESCRIPTION = 'Supplements the bare bones NatSkin theme for TWiki'; @@ -930,13 +930,17 @@ doInit(); my $theComponent = $params->{_DEFAULT}; + my $lineprefix = $params->{lineprefix}; my $name = lc $theComponent; $name =~ s/^currentWeb//o; return '' if $skinState{$name} && $skinState{$name} eq 'off'; my $text = getWebComponent($theComponent); - $text .= "\n" if $name eq 'sidebar'; # SMELL: extra linefeed hack for sidebars + if (defined $lineprefix) + { + $text =~ s/[\n\r]+/\n$lineprefix/gs; + } return $text }