From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 22 Jun 2010 15:29:47 +0000 (+0200)
Subject: create export of all data in tab-separated format
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=0f95ec244a6e6f88fba107efbc54abc5fcf82833;hp=53588a28617774a7323799597186209704068dec;p=MojoFacets.git

create export of all data in tab-separated format
---

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index e2a93af..b5a74a6 100644
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -739,6 +739,21 @@ sub items {
 		push @$sorted_items, $row;
 	}
 
+	my $export_path = "public/export/$path/" . join('.', @columns);
+	open(my $fh, '>', $export_path) || warn "ERROR: can't open $export_path: $!";
+	foreach my $f ( 0 .. $#$filtered ) {
+		print $fh join("\t", map {
+			my $i = $data->{items}->[ $filtered->[$f] ];
+			if ( ref $i->{$_} eq 'ARRAY' ) {
+				join(',', @{ $i->{$_} });
+			} else {
+				dump $i->{$_};
+			}
+		} @columns),"\n";
+	}
+	close($fh);
+	warn "$export_path ", -s $export_path, " bytes\n";
+
 	warn "# test_changed ",dump( $test_changed );
 	my $c = { map { $_ => 1 } @columns };
 	my @added_columns = sort grep { ! $c->{$_} } keys %$test_changed;