From 144289db8bc0bd99dd28699623bba894ff44f378 Mon Sep 17 00:00:00 2001 From: miker Date: Tue, 27 Dec 2005 19:09:19 +0000 Subject: [PATCH] minor bug fix in clark git-svn-id: svn://svn.open-ils.org/ILS/trunk@2534 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/reporter/clark-kent.pl | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Open-ILS/src/reporter/clark-kent.pl b/Open-ILS/src/reporter/clark-kent.pl index ac063f9355..77bf3b480c 100755 --- a/Open-ILS/src/reporter/clark-kent.pl +++ b/Open-ILS/src/reporter/clark-kent.pl @@ -332,6 +332,9 @@ sub build_csv { my $r = shift; my $csv = Text::CSV_XS->new({ always_quote => 1, eol => "\015\012" }); + + return unless ($csv); + my $f = new FileHandle (">$file"); $csv->print($f, $r->{sql}->{columns}); -- 2.43.2