added support for CSV billing import header lines

3.2
Daniel Tiefnig 14 years ago
parent 5c7c53f26a
commit 9f1f708aa9

@ -497,6 +497,11 @@ sub set_fees : Local {
# split file at CR, LF or CRLF # split file at CR, LF or CRLF
foreach my $fee (split /(?:\015\012?|\012)/, $fees) { foreach my $fee (split /(?:\015\012?|\012)/, $fees) {
$line++; $line++;
if($line == 1 and $fee !~ /\d/) {
# header line - TODO: check syntax
@elements = split / *, */, $fee;
next;
}
my %keyval; my %keyval;
my @values = map { length $_ ? $_ : undef } split / *, */, $fee; my @values = map { length $_ ? $_ : undef } split / *, */, $fee;
unless(@elements == @values) { unless(@elements == @values) {
@ -514,6 +519,7 @@ sub set_fees : Local {
$c->session->{feeerr}{line} = $line; $c->session->{feeerr}{line} = $line;
last; last;
} }
# TODO: more syntax checks
push @fees, \%keyval; push @fees, \%keyval;
} }

Loading…
Cancel
Save