Changeset 5212

Timestamp:

Sep 30, 2005, 11:46:55 AM (21 years ago)

Author:

jhoblitt

Message:

don't ouput the CSV header unless there are CSV rows

File:

• trunk/PS-IPP-MetaDB/scripts/mdb-find-new (modified) (3 diffs)

trunk/PS-IPP-MetaDB/scripts/mdb-find-new

@@ -3 +3 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: mdb-find-new,v 1.3 2005-09-30 01:22:53 jhoblitt Exp $
+# $Id: mdb-find-new,v 1.4 2005-09-30 21:46:55 jhoblitt Exp $
 
 use strict;
@@ -34 +34 @@
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
-pod2usage( -msg => "Required options: --dsn --user", -exitval => 2 )
+pod2usage( -msg => "Required options: --dsn --user", -exitval => 3 )
     unless defined $dsn and defined $dbuser;
 
@@ -57 +57 @@
 my $csv = Text::CSV->new();
 
-print "# ", join(", ", @fields), "\n";
+print "# ", join(", ", @fields), "\n" if scalar @rows;
 foreach my $hashref (@rows) {
     $csv->combine(@$hashref{@fields});