Modified write in fines.pl to silence message unless verbose is set.

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
James Winter 2009-08-12 11:24:30 -04:00 committed by Galen Charlton
parent 11a1c687fd
commit 13bef6756e

View file

@ -112,7 +112,7 @@ if (!-d $fldir) {
$filename = $dbname;
$filename =~ s/\W//;
$filename = $fldir . '/'. $filename . '_' . $today_iso . ".log";
print "writing to $filename\n";
print "writing to $filename\n" if $verbose;
open (FILE, ">$filename") or die "Cannot write file $filename: $!";
print FILE join $delim, (@borrower_fields, @item_fields, @other_fields);
print FILE "\n";