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

remove WebGUI::Utility::makeArrayTabSafe

Browse source
This commit is contained in:
Graham Knop 2010-08-20 12:39:20 -05:00
parent 41201e5c4f
commit 55bd411e2c
3 changed files with 16 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/WebGUI/SQL.pm
View file

@ -759,12 +759,24 @@ sub quickTab {
my $self = shift;
my $sql = shift;
my $params = shift;
my $sth = $self->prepare($sql);
$sth->execute(@{$params});
my $output = join("\t", $sth->getColumnNames) . "\n";
my $csv = Text::CSV_XS->new({
eol => "\n",
quote_char => undef,
escape_char => undef,
sep_char => "\t",
});
return undef
unless $csv->combine($sth->getColumnNames);
my $output = $csv->string;
while (my @data = $sth->fetchrow_array) {
WebGUI::Utility::makeArrayTabSafe(\@data);
$output .= join("\t", @data) . "\n";
return undef unless $csv->combine(@data);
$output .= $csv->string;
}
$sth->finish;
return $output;