Revision d29df0d0
Von Bernd Bleßmann vor fast 3 Jahren hinzugefügt
| sql/Pg-upgrade2/phone_notes_convert_to_html.pl | ||
|---|---|---|
|
# @tag: phone_notes_convert_to_html
|
||
|
# @description: Telefonnotizen zu html konvertieren
|
||
|
# @depends: release_3_6_1
|
||
|
package SL::DBUpgrade2::phone_notes_convert_to_html;
|
||
|
|
||
|
use strict;
|
||
|
use utf8;
|
||
|
|
||
|
use parent qw(SL::DBUpgrade2::Base);
|
||
|
|
||
|
use SL::HTML::Util;
|
||
|
|
||
|
sub run {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
my $q_fetch = <<SQL;
|
||
|
SELECT id, body FROM notes WHERE trans_module LIKE 'oe'
|
||
|
SQL
|
||
|
|
||
|
my $q_update_column = <<SQL;
|
||
|
UPDATE notes SET body = ? WHERE id = ?
|
||
|
SQL
|
||
|
|
||
|
my $h_fetch = $self->dbh->prepare($q_fetch);
|
||
|
$h_fetch->execute || $::form->dberror($q_fetch);
|
||
|
|
||
|
my $h_update_column = $self->dbh->prepare($q_update_column);
|
||
|
|
||
|
while (my $entry = $h_fetch->fetchrow_hashref) {
|
||
|
$entry->{body} //= '';
|
||
|
my $html_value = SL::HTML::Util->plain_text_to_html($entry->{body});
|
||
|
$h_update_column->execute($html_value, $entry->{id}) || $::form->dberror($q_update_column);
|
||
|
}
|
||
|
$h_update_column->finish;
|
||
|
$h_fetch->finish;
|
||
|
|
||
|
return 1;
|
||
|
}
|
||
|
|
||
|
1;
|
||
Auch abrufbar als: Unified diff
Telefonnotizen in HTML: DB-Upgrade