Closes #1168

justingit · Aug 17, 2023 · 7ff5c73 · 7ff5c73
1 parent b47eb48
commit 7ff5c73
Showing 1 changed file with 14 additions and 10 deletions.
diff --git a/app/dada/plugins/change_list_shortname b/app/dada/plugins/change_list_shortname
@@ -250,15 +250,20 @@ my %p = %DADA::Config::SQL_PARAMS;
 
 
 my $query_string = 
-"UPDATE  $p{subscriber_table}                   SET list = ?  WHERE list = ?;
- UPDATE  $p{archives_table}                     SET list = ?  WHERE list = ?;
- UPDATE  $p{bounce_scores_table}                SET list = ?  WHERE list = ?;
- UPDATE  $p{clickthrough_url_log_table}         SET list = ?  WHERE list = ?;
- UPDATE  $p{mass_mailing_event_log_table}       SET list = ?  WHERE list = ?;
- UPDATE  $p{password_protect_directories_table} SET list = ?  WHERE list = ?;
- UPDATE  $p{profile_settings_table}             SET list = ?  WHERE list = ?;
- UPDATE  $p{settings_table}                     SET list = ?  WHERE list = ?;
- UPDATE  $p{settings_table}                     SET value = ? WHERE value = ? and setting = 'list';";
+"UPDATE $p{subscriber_table}                   SET list = ?  WHERE list = ?;
+ UPDATE $p{archives_table}                     SET list = ?  WHERE list = ?;
+ UPDATE $p{bounce_scores_table}                SET list = ?  WHERE list = ?;
+ UPDATE $p{clickthrough_url_log_table}         SET list = ?  WHERE list = ?;
+ UPDATE $p{mass_mailing_event_log_table}       SET list = ?  WHERE list = ?;
+ UPDATE $p{password_protect_directories_table} SET list = ?  WHERE list = ?;
+ UPDATE $p{profile_settings_table}             SET list = ?  WHERE list = ?;
+ UPDATE $p{settings_table}                     SET list = ?  WHERE list = ?;
+ UPDATE $p{settings_table}                     SET value = ? WHERE value = ? and setting = 'list';
+ UPDATE $p{message_drafts_table}               SET value = ? WHERE list = ?;
+ UPDATE $p{email_message_previews_table}       SET value = ? WHERE list = ?;
+ UPDATE $p{privacy_policies_table}             SET value = ? WHERE list = ?;
+ UPDATE $p{consents_table}                     SET value = ? WHERE list = ?;
+ UPDATE $p{consent_activity_table}             SET value = ? WHERE list = ?;";
 
 my @queries = split("\n", $query_string); 
 
@@ -278,7 +283,6 @@ require DADA::App::ScreenCache;
 my $c = DADA::App::ScreenCache->new; 
    $c->flush;
 
-
 my $dadamail = new DADA::App( QUERY => $q, );
    $dadamail->logout();