[Bast-commits] r9172 - ironman/branches/mk-ii/Perlanet-IronMan/lib/Perlanet

[aCiD2 at dev.catalyst.perl.org]

Author: aCiD2
Date: 2010-04-14 23:08:23 +0100 (Wed, 14 Apr 2010)
New Revision: 9172

Modified:
   ironman/branches/mk-ii/Perlanet-IronMan/lib/Perlanet/IronMan.pm
Log:
Clean out clear: CSS

Modified: ironman/branches/mk-ii/Perlanet-IronMan/lib/Perlanet/IronMan.pm
===================================================================
--- ironman/branches/mk-ii/Perlanet-IronMan/lib/Perlanet/IronMan.pm	2010-04-14 22:00:23 UTC (rev 9171)
+++ ironman/branches/mk-ii/Perlanet-IronMan/lib/Perlanet/IronMan.pm	2010-04-14 22:08:23 UTC (rev 9172)
@@ -320,7 +320,17 @@
     return 0;
 }
 
+# We don't want to remove the style attribute completely, but a clear: both will
+# screw our layout up...
+around 'clean' => sub {
+    my $orig = shift;
+    my ($self, $input) = @_;
 
+    my $output = $self->$orig($input);
+    $output =~ s/style="(.*?)clear:(.*?);/style="$1/;
+    return $output;
+};
+
 =head1 AUTHOR
 
 Oliver Charles (aCiD2) <oliver.g.charles at googlemail.com>