Model::Journals: fix article_to_introtext method

diff --git a/src/newslash_web/lib/Newslash/Model/Journals.pm b/src/newslash_web/lib/Newslash/Model/Journals.pm
index addeb82..7bcc279 100644 (file)
--- a/src/newslash_web/lib/Newslash/Model/Journals.pm
+++ b/src/newslash_web/lib/Newslash/Model/Journals.pm
@@ -509,7 +509,7 @@ sub article_to_introtext {
                            )}x;
         $intro_text = $1 if $html =~ m/^(.{$min_chars,$max_chars})?$linebreak/s;
     }
-    $intro_text = $util->clean_html($intro_text);
+    $intro_text = $util->tidy_html($intro_text);
     return $intro_text;
 }