From 1509cd837ea7e4e147a088d939b4198ee2456ef8 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Sun, 1 Nov 2009 22:12:56 +0000
Subject: form 477 improvements #6499

---
 httemplate/search/elements/search-csv.html | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'httemplate/search/elements/search-csv.html')

diff --git a/httemplate/search/elements/search-csv.html b/httemplate/search/elements/search-csv.html
index cd4ea63f5..21822700e 100644
--- a/httemplate/search/elements/search-csv.html
+++ b/httemplate/search/elements/search-csv.html
@@ -1,6 +1,6 @@
 % $csv->combine(@$header); #or die $csv->status;
 %    
-<% $csv->string %>\
+<% $opt{no_csv_header} ? '' : $csv->string %>\
 %
 % foreach my $row ( @$rows ) {
 %
@@ -41,7 +41,10 @@ my %opt    = %{ $args{'opt'} };
 #http_header('Content-Type' => 'text/comma-separated-values' ); #IE chokes
 http_header('Content-Type' => 'text/plain' );
 
-my $csv = new Text::CSV_XS { 'always_quote' => 1,
+my $quote_char = '"';
+$quote_char = $opt{csv_quote} if exists($opt{csv_quote});
+
+my $csv = new Text::CSV_XS { 'always_quote' => $opt{avoid_quote} ? 0 : 1,
                              'eol'          => "\n", #"\015\012", #"\012"
                            };
 
-- 
cgit v1.2.1