Modified write in fines.pl to silence message unless verbose is set.
authorJames Winter <winterj@arcadia.edu>
Wed, 12 Aug 2009 15:24:30 +0000 (11:24 -0400)
committerGalen Charlton <gmcharlt@gmail.com>
Thu, 13 Aug 2009 01:31:45 +0000 (21:31 -0400)
Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
misc/cronjobs/fines.pl

index 65bfb7a..bcc98e8 100755 (executable)
@@ -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";