From: Moritz Bunkus Date: Wed, 12 Jan 2022 10:21:56 +0000 (+0100) Subject: E-Mails als HTML verschicken: Konvertierung relevanter Datenbankfelder X-Git-Tag: kivitendo-mebil_0.1-0~10^2~2^2~220^2~11 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=7c9b978add192dc16c380967999f5eb4117d5913;p=kivitendo-erp.git E-Mails als HTML verschicken: Konvertierung relevanter Datenbankfelder --- diff --git a/sql/Pg-upgrade2-auth/convert_columns_to_html_for_sending_html_emails.pl b/sql/Pg-upgrade2-auth/convert_columns_to_html_for_sending_html_emails.pl new file mode 100644 index 000000000..f8ffbe63f --- /dev/null +++ b/sql/Pg-upgrade2-auth/convert_columns_to_html_for_sending_html_emails.pl @@ -0,0 +1,46 @@ +# @tag: convert_columns_to_html_for_sending_html_emails +# @description: Versand von E-Mails in HTML: mehrere Text-Spalten nach HTML umwandeln +# @depends: release_3_5_8 +package SL::DBUpgrade2::Auth::convert_columns_to_html_for_sending_html_emails; + +use strict; +use utf8; + +use parent qw(SL::DBUpgrade2::Base); + +use SL::HTML::Util; + +sub run { + my ($self) = @_; + + my $q_fetch = <dbh->prepare($q_fetch); + $h_fetch->execute || $::form->dberror($q_fetch); + + my $h_update = $self->dbh->prepare($q_update); + + while (my $entry = $h_fetch->fetchrow_hashref) { + $entry->{cfg_value} //= ''; + my $new_value = SL::HTML::Util->plain_text_to_html($entry->{cfg_value}); + + next if $entry->{cfg_value} eq $new_value; + + $h_update->execute($new_value, $entry->{user_id}) || $::form->dberror($q_update); + } + + return 1; +} + +1; diff --git a/sql/Pg-upgrade2/convert_columns_to_html_for_sending_html_emails.pl b/sql/Pg-upgrade2/convert_columns_to_html_for_sending_html_emails.pl new file mode 100644 index 000000000..168ea459f --- /dev/null +++ b/sql/Pg-upgrade2/convert_columns_to_html_for_sending_html_emails.pl @@ -0,0 +1,62 @@ +# @tag: convert_columns_to_html_for_sending_html_emails +# @description: Versand von E-Mails in HTML: mehrere Text-Spalten nach HTML umwandeln +# @depends: release_3_5_8 +package SL::DBUpgrade2::convert_columns_to_html_for_sending_html_emails; + +use strict; +use utf8; + +use parent qw(SL::DBUpgrade2::Base); + +use SL::HTML::Util; + +sub convert_column { + my ($self, $table, $id_column, $column_to_convert, $condition) = @_; + + $condition = $condition ? "WHERE $condition" : ""; + + my $q_fetch = <dbh->prepare($q_fetch); + $h_fetch->execute || $::form->dberror($q_fetch); + + my $h_update = $self->dbh->prepare($q_update); + + while (my $entry = $h_fetch->fetchrow_hashref) { + $entry->{$column_to_convert} //= ''; + my $new_value = SL::HTML::Util->plain_text_to_html($entry->{$column_to_convert}); + + next if $entry->{$column_to_convert} eq $new_value; + + $h_update->execute($new_value, $entry->{id}) || $::form->dberror($q_update); + } +} + +sub run { + my ($self) = @_; + + $self->convert_column('defaults', 'id', 'signature'); + $self->convert_column('employee', 'id', 'deleted_signature'); + $self->convert_column('periodic_invoices_configs', 'id', 'email_body'); + $self->convert_column('generic_translations', 'id', 'translation', <