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 (
die $EVAL_ERROR;
}
+ my $auth = $file_name =~ m{/Pg-upgrade2-auth/} ? 'Auth::' : '';
my $package = delete $params{tag};
$package =~ s/[^a-zA-Z0-9_]+/_/g;
- $package = "SL::DBUpgrade2::${package}";
+ $package = "SL::DBUpgrade2::${auth}${package}";
$package->new(%params)->run;
}
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+}{</p><p>}g;
$new_content =~ s{\n}{<br />}g;