From 3b3a406c272aef77a9c630404fa09d963941d887 Mon Sep 17 00:00:00 2001 From: "J. David Bavousett" Date: Fri, 18 Sep 2009 09:49:40 -0400 Subject: [PATCH] Silence extraneous messages when in batch mode on build_browser_and_cloud.pl The script already has a param -b for batch mode, which should silence informational messages, but it missed a couple. This patch fixes that. Signed-off-by: Galen Charlton --- misc/cronjobs/build_browser_and_cloud.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/misc/cronjobs/build_browser_and_cloud.pl b/misc/cronjobs/build_browser_and_cloud.pl index 05ea3fbb78..e1873c816f 100755 --- a/misc/cronjobs/build_browser_and_cloud.pl +++ b/misc/cronjobs/build_browser_and_cloud.pl @@ -56,7 +56,7 @@ $max_digits=3 unless $max_digits; $field =~ /(\d\d\d)(.?)/; my $browser_tag = $1; my $browser_subfield = $2; -warn "browser : $browser_tag / $browser_subfield"; +warn "browser : $browser_tag / $browser_subfield" unless $batch; die "no cloud or browser field/subfield defined : nothing to do !" unless $browser_tag or $cloud_tag; my $dbh = C4::Context->dbh; @@ -116,7 +116,7 @@ while ((my ($biblionumber)= $sth->fetchrow)) { $cloud_result{$line}++; } }else{ - print "!"; + print "!" unless $batch; } } @@ -126,7 +126,7 @@ while ((my ($biblionumber)= $sth->fetchrow)) { # fills the browser table if ($browser_tag) { - print "inserting datas in browser table\n"; + print "inserting datas in browser table\n" unless $batch; # read existing classification table is possible my $classification; if (C4::Context->preference('opaclanguages') =~ m/^fr/i && $browser_tag eq '676' & $browser_subfield eq 'a') { -- 2.39.5