projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
with cust_main-custnum-display_prefix, use prefixed customer numbers on batch import...
[freeside.git]
/
FS
/
FS
/
Record.pm
diff --git
a/FS/FS/Record.pm
b/FS/FS/Record.pm
index
835b73d
..
a47cc8b
100644
(file)
--- a/
FS/FS/Record.pm
+++ b/
FS/FS/Record.pm
@@
-979,6
+979,9
@@
sub AUTOLOAD {
my($field)=$AUTOLOAD;
$field =~ s/.*://;
my($field)=$AUTOLOAD;
$field =~ s/.*://;
+ confess "errant AUTOLOAD $field for $self (arg $value)"
+ unless blessed($self) && $self->can('setfield');
+
#$fk_method_cache{$self->table} ||= fk_methods($self->table);
if ( exists($fk_method_cache{$self->table}->{$field}) ) {
#$fk_method_cache{$self->table} ||= fk_methods($self->table);
if ( exists($fk_method_cache{$self->table}->{$field}) ) {
@@
-1006,12
+1009,8
@@
sub AUTOLOAD {
}
if ( defined($value) ) {
}
if ( defined($value) ) {
- confess "errant AUTOLOAD $field for $self (arg $value)"
- unless blessed($self) && $self->can('setfield');
$self->setfield($field,$value);
} else {
$self->setfield($field,$value);
} else {
- confess "errant AUTOLOAD $field for $self (no args)"
- unless blessed($self) && $self->can('getfield');
$self->getfield($field);
}
}
$self->getfield($field);
}
}
@@
-1848,9
+1847,12
@@
sub batch_import {
my $file = $param->{file};
my $params = $param->{params} || {};
my $file = $param->{file};
my $params = $param->{params} || {};
+ my $custnum_prefix = $conf->config('cust_main-custnum-display_prefix');
+ my $custnum_length = $conf->config('cust_main-custnum-display_length') || 8;
+
my( $type, $header, $sep_char,
$fixedlength_format, $xml_format, $asn_format,
my( $type, $header, $sep_char,
$fixedlength_format, $xml_format, $asn_format,
- $row_callback, @fields );
+ $
parser_opt, $
row_callback, @fields );
my $postinsert_callback = '';
$postinsert_callback = $param->{'postinsert_callback'}
my $postinsert_callback = '';
$postinsert_callback = $param->{'postinsert_callback'}
@@
-1883,6
+1885,11
@@
sub batch_import {
? $param->{'format_fixedlength_formats'}{ $param->{'format'} }
: '';
? $param->{'format_fixedlength_formats'}{ $param->{'format'} }
: '';
+ $parser_opt =
+ $param->{'format_parser_opts'}
+ ? $param->{'format_parser_opts'}{ $param->{'format'} }
+ : {};
+
$xml_format =
$param->{'format_xml_formats'}
? $param->{'format_xml_formats'}{ $param->{'format'} }
$xml_format =
$param->{'format_xml_formats'}
? $param->{'format_xml_formats'}{ $param->{'format'} }
@@
-1937,18
+1944,17
@@
sub batch_import {
if ( $type eq 'csv' ) {
if ( $type eq 'csv' ) {
-
my %attr = ( 'binary' => 1, )
;
- $
attr{sep_char
} = $sep_char if $sep_char;
- $parser =
new Text::CSV_XS \%attr
;
+
$parser_opt->{'binary'} = 1
;
+ $
parser_opt->{'sep_char'
} = $sep_char if $sep_char;
+ $parser =
Text::CSV_XS->new($parser_opt)
;
} elsif ( $type eq 'fixedlength' ) {
eval "use Parse::FixedLength;";
die $@ if $@;
} elsif ( $type eq 'fixedlength' ) {
eval "use Parse::FixedLength;";
die $@ if $@;
- $parser = Parse::FixedLength->new($fixedlength_format);
+ $parser = Parse::FixedLength->new($fixedlength_format
, $parser_opt
);
- }
- else {
+ } else {
die "Unknown file type $type\n";
}
die "Unknown file type $type\n";
}
@@
-2128,6
+2134,11
@@
sub batch_import {
}
}
+ if ( $custnum_prefix && $hash{custnum} =~ /^$custnum_prefix(0*([1-9]\d*))$/
+ && length($1) == $custnum_length ) {
+ $hash{custnum} = $2;
+ }
+
#my $table = $param->{table};
my $class = "FS::$table";
#my $table = $param->{table};
my $class = "FS::$table";