[Bast-commits] r6239 - ironman/plagger/lib/Plagger

[penfold at dev.catalyst.perl.org]

Author: penfold
Date: 2009-05-12 20:09:07 +0000 (Tue, 12 May 2009)
New Revision: 6239

Modified:
   ironman/plagger/lib/Plagger/Text.pm
Log:
back out change and fix in Filter::HTMLScrubber config


Modified: ironman/plagger/lib/Plagger/Text.pm
===================================================================
--- ironman/plagger/lib/Plagger/Text.pm	2009-05-12 20:01:52 UTC (rev 6238)
+++ ironman/plagger/lib/Plagger/Text.pm	2009-05-12 20:09:07 UTC (rev 6239)
@@ -49,11 +49,7 @@
 sub html {
     my $self = shift;
     if ($self->is_html) {
-        my $scrubber = HTML::Scrubber->new();
-        $scrubber->deny(qw/link/);
-        $scrubber->style(1);
-        $scrubber->script(1);
-        return $scrubber->scrub($self->data);
+        $self->data;
     } else {
         Plagger::Util::encode_xml($self->data);
     }
@@ -77,7 +73,7 @@
     my $length = shift || 300;
 
      my $html_truncate = HTML::Truncate->new(repair=>1);
-     $html_truncate->chars($length);
+     $html_truncate->chars($ length);
      $html_truncate->ellipsis(" [...]");
      my $truncated = eval { $html_truncate->truncate($self->html) };
      if ($@) {