X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4eab0ccf297f5e2643c51782c118061278df58f5..53593baa211863fbf66540cf1bcc36c8fb37257f:/SL/DBUpgrade2/Base.pm diff --git a/SL/DBUpgrade2/Base.pm b/SL/DBUpgrade2/Base.pm index 5d0d26c9b..cd698c5e5 100644 --- a/SL/DBUpgrade2/Base.pm +++ b/SL/DBUpgrade2/Base.pm @@ -12,6 +12,7 @@ use File::Copy (); use File::Path (); use List::MoreUtils qw(uniq); use SL::DBUtils qw(selectfirst_hashref_query); +use SL::Presenter::EscapedText qw(escape); use version; use Rose::Object::MakeMethods::Generic ( @@ -152,7 +153,7 @@ sub convert_column_to_html { foreach my $row (selectall_hashref_query($::form, $self->dbh, qq|SELECT id, $column FROM $table WHERE $column IS NOT NULL|)) { next if !$row->{$column} || (($row->{$column} =~ m{^<[a-z]+>}) && ($row->{$column} =~ m{[a-z]+>$})); - my $new_content = "" . $::request->presenter->escape($row->{$column}); + my $new_content = "" . escape($row->{$column}); $new_content =~ s{\r}{}g; $new_content =~ s{\n\n+}{
}g;
$new_content =~ s{\n}{
}g;