@@ -, +, @@ value x in days_in_advance). --- misc/maintenance/borrowers-force-messaging-defaults | 20 +++----------------- 1 file changed, 3 insertions(+), 17 deletions(-) --- a/misc/maintenance/borrowers-force-messaging-defaults +++ a/misc/maintenance/borrowers-force-messaging-defaults @@ -39,7 +39,7 @@ sub usage { sub force_borrower_messaging_defaults { - my ($doit, $truncate, $since) = @_; + my ($doit, $since) = @_; $since = '0000-00-00' if (!$since); print $since; @@ -47,13 +47,6 @@ 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|); - } - my $sth = $dbh->prepare("SELECT borrowernumber, categorycode FROM borrowers WHERE dateenrolled >= ?"); $sth->execute($since); while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) { @@ -68,17 +61,16 @@ sub force_borrower_messaging_defaults { } -my ($doit, $truncate, $since, $help); +my ($doit, $since, $help); my $result = GetOptions( 'doit' => \$doit, - 'truncate' => \$truncate, 'since:s' => \$since, 'help|h' => \$help, ); usage() if $help; -force_borrower_messaging_defaults( $doit, $truncate, $since ); +force_borrower_messaging_defaults( $doit, $since ); =head1 NAME @@ -89,7 +81,6 @@ force-borrower-messaging-defaults force-borrower-messaging-defaults force-borrower-messaging-defaults --help force-borrower-messaging-defaults --doit - force-borrower-messaging-defaults --doit --truncate =head1 DESCRIPTION @@ -112,11 +103,6 @@ Prints this help Process actually the borrowers. -=item B<--truncate> - -Truncate all borrowers transport preferences before (re-)creating them. It -affects borrower_message_preferences table. - =back =cut --