[freeside-commits] freeside/httemplate/search/elements search-csv.html, 1.1, 1.1.2.1

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/httemplate/search/elements
In directory wavetail.420.am:/tmp/cvs-serv18187/elements

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	search-csv.html 
Log Message:
form 477 improvements #6499

Index: search-csv.html
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/search/elements/search-csv.html,v
retrieving revision 1.1
retrieving revision 1.1.2.1
diff -u -d -r1.1 -r1.1.2.1
--- search-csv.html	3 May 2009 22:45:40 -0000	1.1
+++ search-csv.html	1 Nov 2009 23:03:10 -0000	1.1.2.1
@@ -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 @@
 #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"
                            };