Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 8858a05b

Von Sven Schöling vor etwa 7 Jahren hinzugefügt

  • ID 8858a05b23df2769f6e03c5b0fd7647840799fff
  • Vorgänger bc0e2eda
  • Nachfolger d0785135

Presenter: Neue Struktur im DBUpgrade

Unterschiede anzeigen:

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