From da0a53b0b35364b485951295b6b7a5298fad79de Mon Sep 17 00:00:00 2001 From: mxbeaulieu Date: Mon, 9 Mar 2015 11:20:14 -0400 Subject: [PATCH] Added -s|--silent option to borrowers-force-messaging-defaults The script will not print to stdout when the flag is activated. Test: Run the script with the flag. All to stdout is eliminated. Run the scirpt without the flag. A report is printed to stdout. sponsored by: CCSR http://bugs.koha-community.org/show_bug.cgi?id=13811 --- .../maintenance/borrowers-force-messaging-defaults | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/misc/maintenance/borrowers-force-messaging-defaults b/misc/maintenance/borrowers-force-messaging-defaults index ff35e08..0564222 100755 --- a/misc/maintenance/borrowers-force-messaging-defaults +++ b/misc/maintenance/borrowers-force-messaging-defaults @@ -39,10 +39,10 @@ sub usage { sub force_borrower_messaging_defaults { - my ($doit, $truncate, $since) = @_; + my ($doit, $truncate, $since, $silent) = @_; $since = '0000-00-00' if (!$since); - print $since; + print $since unless $silent; my $dbh = C4::Context->dbh; $dbh->{AutoCommit} = 0; @@ -55,7 +55,7 @@ sub force_borrower_messaging_defaults { my $sth = $dbh->prepare("SELECT borrowernumber, categorycode FROM borrowers WHERE dateenrolled >= ?"); $sth->execute($since); while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) { - print "$borrowernumber: $categorycode\n"; + print "$borrowernumber: $categorycode\n" unless $silent; next unless $doit; C4::Members::Messaging::SetMessagingPreferencesFromDefaults( { borrowernumber => $borrowernumber, @@ -66,17 +66,18 @@ sub force_borrower_messaging_defaults { } -my ($doit, $truncate, $since, $help); +my ($doit, $truncate, $since, $help, $silent); my $result = GetOptions( 'doit' => \$doit, 'truncate' => \$truncate, 'since:s' => \$since, 'help|h' => \$help, + 'silent|s' => \$silent ); usage() if $help; -force_borrower_messaging_defaults( $doit, $truncate, $since ); +force_borrower_messaging_defaults( $doit, $truncate, $since, $silent); =head1 NAME -- 1.7.9.5