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

fix a bug where userId, ipAddress, submittion time, etc. were omitted from the tab deliniated dump of the DataForm

Browse source
This commit is contained in:
Colin Kuskie 2007-05-01 21:43:51 +00:00
parent ec1d8dc2d1
commit a5de078f13
2 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
docs/changelog/7.x.x.txt
View file

@ -7,6 +7,8 @@
http://www.plainblack.com/bugs/tracker/able-to-edit-locked-template
- fix: demo site: wiki: links broken (perlDreamer Consulting, LLC)
http://www.plainblack.com/bugs/tracker/able-to-edit-locked-template
- fix: DataForm does not export entry information (perlDreamer Consulting, LLC)
http://www.plainblack.com/bugs/tracker/dataform-does-not-export-entry-information
7.3.15
- Added more documentation to WebGUI.pm

14
lib/WebGUI/Asset/Wobject/DataForm.pm
View file

@ -1110,19 +1110,19 @@ sub www_exportTab {
$entries->finish;
##Output field headers
my @row;
my @validFields;
foreach my $fieldId (keys %fields) {
next if (isIn($fields{$fieldId}, qw(to from cc bcc subject)) && $noMailData);
push(@row, $fields{$fieldId});
push(@validFields, $fields{$fieldId});
}
my $tab = join("\t",@row)."\n";
unshift @validFields, qw/entryId ipAddress username userId submissionDate/;
my $tab = join("\t",@validFields)."\n";
##Output actual row data
foreach my $record (@data) {
@row = ();
foreach my $fieldId (keys %fields) {
next if (isIn($fields{$fieldId}, qw(to from cc bcc subject)) && $noMailData);
my $value = $record->{$fields{$fieldId}};
my @row = ();
foreach my $fieldName (@validFields) {
my $value = $record->{$fieldName};
$value =~ s/\t/\\t/g;
$value =~ s/\r//g;
$value =~ s/\n/;/g;