From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 30 Jun 2010 22:28:21 +0000 (+0200)
Subject: insert column names in first line of export
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=22ac4c2b24e481e4c42fe980d82bd2b56776fe7a;p=MojoFacets.git

insert column names in first line of export

commented with # in first column, and tab-delimited
---

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index d9c1dfd..b0cc4fa 100644
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -812,6 +812,7 @@ sub items {
 	if ( $self->param('export') ) {
 		my $export_path = $self->_export_path( 'items', @columns);
 		open(my $fh, '>', $export_path) || die "ERROR: can't open $export_path: $!";
+		print $fh "#",join("\t",@columns),"\n";
 		foreach my $f ( 0 .. $#$filtered ) {
 			print $fh join("\t", map {
 				my $i = $data->{items}->[ $filtered->[$f] ];