Revision 8858a05b
Von Sven Schöling vor etwa 7 Jahren hinzugefügt
SL/DBUpgrade2/Base.pm | ||
---|---|---|
12 | 12 |
use File::Path (); |
13 | 13 |
use List::MoreUtils qw(uniq); |
14 | 14 |
use SL::DBUtils qw(selectfirst_hashref_query); |
15 |
use SL::Presenter::EscapedText qw(escape); |
|
15 | 16 |
use version; |
16 | 17 |
|
17 | 18 |
use Rose::Object::MakeMethods::Generic ( |
... | ... | |
152 | 153 |
foreach my $row (selectall_hashref_query($::form, $self->dbh, qq|SELECT id, $column FROM $table WHERE $column IS NOT NULL|)) { |
153 | 154 |
next if !$row->{$column} || (($row->{$column} =~ m{^<[a-z]+>}) && ($row->{$column} =~ m{</[a-z]+>$})); |
154 | 155 |
|
155 |
my $new_content = "" . $::request->presenter->escape($row->{$column});
|
|
156 |
my $new_content = "" . escape($row->{$column}); |
|
156 | 157 |
$new_content =~ s{\r}{}g; |
157 | 158 |
$new_content =~ s{\n\n+}{</p><p>}g; |
158 | 159 |
$new_content =~ s{\n}{<br />}g; |
Auch abrufbar als: Unified diff
Presenter: Neue Struktur im DBUpgrade