oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

EMS import/export, Form::*::getValueFromPost(alt_values), and tests

Browse source
This commit is contained in:
James Tolley 2007-05-29 23:39:24 +00:00
parent 0a7e06edca
commit c09b2cae1b
46 changed files with 1728 additions and 299 deletions
Download patch file Download diff file Expand all files Collapse all files

28
lib/WebGUI/SQL.pm
View file

@ -19,6 +19,7 @@ use strict;
use Tie::IxHash;
use WebGUI::SQL::ResultSet;
use WebGUI::Utility;
use Text::CSV_XS;
=head1 NAME
@ -527,7 +528,7 @@ sub quickArray {
=head2 quickCSV ( sql, params )
Executes a query and returns a comma delimited text blob with column headers.
Executes a query and returns a comma delimited text blob with column headers. Returns undef on failure.
=head3 sql
@ -543,16 +544,23 @@ sub quickCSV {
my $self = shift;
my $sql = shift;
my $params = shift;
my ($sth, $output, @data);
$sth = $self->prepare($sql);
my ($sth, $output, @data);
my $csv = Text::CSV_XS->new({ eol => "\n" });
$sth = $self->prepare($sql);
$sth->execute($params);
$output = join(",",$sth->getColumnNames)."\n";
while (@data = $sth->array) {
makeArrayCommaSafe(\@data);
$output .= join(",",@data)."\n";
}
$sth->finish;
return $output;
return unless $csv->combine($sth->getColumnNames);
$output = $csv->string();
while (@data = $sth->array) {
return unless $csv->combine(@data);
$output .= $csv->string();
}
$sth->finish;
return $output;
}