@@ -, +, @@ value x in days_in_advance). --- .../borrowers-force-messaging-defaults.pl | 26 +++++++++++----------- 1 file changed, 13 insertions(+), 13 deletions(-) --- a/misc/maintenance/borrowers-force-messaging-defaults.pl +++ a/misc/maintenance/borrowers-force-messaging-defaults.pl @@ -39,7 +39,7 @@ sub usage { sub force_borrower_messaging_defaults { - my ($doit, $truncate, $since, $actives, $no_overwrite) = @_; + my ($doit, $reset_all, $since, $actives, $no_overwrite) = @_; $since = '0000-00-00' if (!$since); print "Since: $since\n"; @@ -47,11 +47,8 @@ sub force_borrower_messaging_defaults { my $dbh = C4::Context->dbh; $dbh->{AutoCommit} = 0; - if ( $doit && $truncate ) { - $dbh->do(q|SET FOREIGN_KEY_CHECKS = 0|); - $dbh->do(q|TRUNCATE borrower_message_transport_preferences|); - $dbh->do(q|TRUNCATE borrower_message_preferences|); - $dbh->do(q|SET FOREIGN_KEY_CHECKS = 1|); + if ( $doit && $reset_all ) { + $dbh->do(q|DELETE FROM borrower_message_preferences WHERE borrowernumber IS NOT NULL|); } my $sql = "SELECT borrowernumber, categorycode FROM borrowers bo WHERE dateenrolled >= ?"; @@ -75,10 +72,10 @@ sub force_borrower_messaging_defaults { } -my ( $doit, $truncate, $since, $help, $actives, $no_overwrite ); +my ( $doit, $reset_all, $since, $help, $actives, $no_overwrite ); my $result = GetOptions( 'doit' => \$doit, - 'truncate' => \$truncate, + 'reset_all' => \$reset_all, 'since:s' => \$since, 'actives' => \$actives, 'no_overwrite' => \$no_overwrite, @@ -86,8 +83,12 @@ my $result = GetOptions( ); usage() if $help; +if( $no_overwrite && $reset_all ) { + print "The options no_overwrite and reset_all are mutually exclusive\n"; + exit 1; +} -force_borrower_messaging_defaults( $doit, $truncate, $since, $actives, $no_overwrite ); +force_borrower_messaging_defaults( $doit, $reset_all, $since, $actives, $no_overwrite ); =head1 NAME @@ -98,7 +99,7 @@ force-borrower-messaging-defaults force-borrower-messaging-defaults force-borrower-messaging-defaults --help force-borrower-messaging-defaults --doit - force-borrower-messaging-defaults --doit --truncate + force-borrower-messaging-defaults --doit --reset_all force-borrower-messaging-defaults --doit --actives =head1 DESCRIPTION @@ -123,10 +124,9 @@ Prints this help Actually update the borrowers. -=item B<--truncate> +=item B<--reset_all> -Truncate all borrowers transport preferences before (re-)creating them. It -affects borrower_message_preferences table. +Removes all borrowers messaging preferences before (re-)creating them. =item B<--actives> --