Contents of /trunk/share/web/templates/csv

<%args>
</%args>
<%init>

my $query = Jifty->web->new_action(
        class => 'DoSQL',
        moniker => 'csv',
        arguments => { %ARGS },
);

$query->run or die "can't DoSQL";
my $sth = $query->result->content('sth') or die "no sth in result->content?";

use Data::Dump qw/dump/;
warn "sth = ", dump( $sth );

my @out;

if ($sth) {

        push @out, join(",", map { "\"$_\"" } @{ $sth->{'NAME'} } );

        while ( my @row = $sth->fetchrow_array() ) {
                push @out, join(",", map { "\"$_\"" } @row );
        }

}

Jifty->handler->apache->content_type('text/csv; charset=utf-8');

</%init>
<% join("\r\n", @out) |n %>
1	<%args>
2	</%args>
3	<%init>
4
5	my $query = Jifty->web->new_action(
6	class => 'DoSQL',
7	moniker => 'csv',
8	arguments => { %ARGS },
9	);
10
11	$query->run or die "can't DoSQL";
12	my $sth = $query->result->content('sth') or die "no sth in result->content?";
13
14	use Data::Dump qw/dump/;
15	warn "sth = ", dump( $sth );
16
17	my @out;
18
19	if ($sth) {
20
21	push @out, join(",", map { "\"$_\"" } @{ $sth->{'NAME'} } );
22
23	while ( my @row = $sth->fetchrow_array() ) {
24	push @out, join(",", map { "\"$_\"" } @row );
25	}
26
27	}
28
29	Jifty->handler->apache->content_type('text/csv; charset=utf-8');
30
31	</%init>
32	<% join("\r\n", @out) \|n %>