From: Jared Camins-Esakov To: dev@bywatersolutions.com Cc: Jared Camins-Esakov Subject: [PATCH 2/2] Bug 5610: Add --since for setting messaging to default Date: Sat, 19 Mar 2011 09:32:25 -0400 Message-Id: <1300541545-1957-2-git-send-email-jcamins@bywatersolutions.com> X-Mailer: git-send-email 1.7.2.3 In-Reply-To: <1300541545-1957-1-git-send-email-jcamins@bywatersolutions.com> References: <1300541545-1957-1-git-send-email-jcamins@bywatersolutions.com> X-Original-Sender: jcamins@bywatersolutions.com X-Original-Authentication-Results: mx.google.com; spf=neutral (google.com: 209.85.220.170 is neither permitted nor denied by best guess record for domain of jcamins@bywatersolutions.com) smtp.mail=jcamins@bywatersolutions.com Precedence: list Mailing-list: list dev@bywatersolutions.com; contact dev+owners@bywatersolutions.com List-ID: X-Google-Group-Id: 274270250429 List-Help: , Content-Type: text/plain; charset="utf-8" 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 --- .../maintenance/borrowers-force-messaging-defaults | 14 +++++++++----- 1 files changed, 9 insertions(+), 5 deletions(-) diff --git a/misc/maintenance/borrowers-force-messaging-defaults b/misc/maintenance/borrowers-force-messaging-defaults index 11f2228..ff35e08 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 -- 1.7.2.3