From e158f86d20fbe8b4fb9d3d2e453712b83c7a3cee Mon Sep 17 00:00:00 2001 From: Jared Camins-Esakov Date: Wed, 16 Mar 2011 21:02:30 -0400 Subject: [PATCH] Bug 5610: Add --since for setting messaging to default It is now possible to specify a command line argument --since so that the borrowers-force-messaging-defaults script only changes patrons created starting on a certain day. If the optional argument is not specified, the script applies to all borrowers. Signed-off-by: Jared Camins-Esakov Signed-off-by: Nicole C. Engard Signed-off-by: Chris Cormack --- .../maintenance/borrowers-force-messaging-defaults | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/misc/maintenance/borrowers-force-messaging-defaults b/misc/maintenance/borrowers-force-messaging-defaults index 11f2228de0..ff35e086c9 100755 --- a/misc/maintenance/borrowers-force-messaging-defaults +++ b/misc/maintenance/borrowers-force-messaging-defaults @@ -39,7 +39,10 @@ sub usage { sub force_borrower_messaging_defaults { - my ($doit, $truncate) = @_; + my ($doit, $truncate, $since) = @_; + + $since = '0000-00-00' if (!$since); + print $since; my $dbh = C4::Context->dbh; $dbh->{AutoCommit} = 0; @@ -49,8 +52,8 @@ sub force_borrower_messaging_defaults { $sth->execute(); } - my $sth = $dbh->prepare("SELECT borrowernumber, categorycode FROM borrowers"); - $sth->execute(); + my $sth = $dbh->prepare("SELECT borrowernumber, categorycode FROM borrowers WHERE dateenrolled >= ?"); + $sth->execute($since); while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) { print "$borrowernumber: $categorycode\n"; next unless $doit; @@ -63,16 +66,17 @@ sub force_borrower_messaging_defaults { } -my ($doit, $truncate, $help); +my ($doit, $truncate, $since, $help); my $result = GetOptions( 'doit' => \$doit, 'truncate' => \$truncate, + 'since:s' => \$since, 'help|h' => \$help, ); usage() if $help; -force_borrower_messaging_defaults( $doit, $truncate); +force_borrower_messaging_defaults( $doit, $truncate, $since ); =head1 NAME -- 2.39.5