Select Code to Download

sub ReadData ($$) {
    my ($self, $filename) = @_;
...
    close (FLATFILE);
    return $ar_returnvalue;
} ## end sub ReadData ($$)

        $hr_returnvalue->{$CurrentColumnName} =~ s/^\s*(.*?)\s*$/$1/; 
+   # Trim whitespace

        s/^\s+//, s/\s+$// for $hr_returnvalue->{$CurrentColumnName}; 
+   # Trim whitespace

                if ($self->datatype->[$_] =~ /^(?:CHAR|VARCHAR|DATE|TI
+ME|DATETIME)$/) {
                    $hr_returnvalue->{$CurrentColumnName} = sprintf ("
+%s", $self->standaard->[$_]);
                } else {
                    $hr_returnvalue->{$CurrentColumnName} = $self->sta
+ndaard->[$_];
                }