minor bug fix in clark
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 27 Dec 2005 19:09:19 +0000 (19:09 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 27 Dec 2005 19:09:19 +0000 (19:09 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@2534 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/reporter/clark-kent.pl

index ac063f9..77bf3b4 100755 (executable)
@@ -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});