Pre-work for DataForm bug fix.

Added POD to VersionTag.pm showing some of the properties that can be gotten via get.
This commit is contained in:
Colin Kuskie 2007-05-01 21:18:21 +00:00
parent 8768116f76
commit ec1d8dc2d1
2 changed files with 43 additions and 1 deletions

View file

@ -1108,12 +1108,16 @@ sub www_exportTab {
$i++;
}
$entries->finish;
##Output field headers
my @row;
foreach my $fieldId (keys %fields) {
next if (isIn($fields{$fieldId}, qw(to from cc bcc subject)) && $noMailData);
push(@row, $fields{$fieldId});
}
my $tab = join("\t",@row)."\n";
##Output actual row data
foreach my $record (@data) {
@row = ();
foreach my $fieldId (keys %fields) {