diff options
author | ivan <ivan> | 2011-02-21 01:21:17 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-02-21 01:21:17 +0000 |
commit | 9e6bf0f56f0bd9ceef7cbc22975583968e9f4fb2 (patch) | |
tree | 84af66acf8aacd1bf662aed8e54547457892c9f3 /FS/FS/cust_pkg | |
parent | f6ec862de3441618ae8035db1b754d417c5cb1b0 (diff) |
add agent_pkgid
Diffstat (limited to 'FS/FS/cust_pkg')
-rw-r--r-- | FS/FS/cust_pkg/Import.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/cust_pkg/Import.pm b/FS/FS/cust_pkg/Import.pm index 9c93677..fe69f82 100644 --- a/FS/FS/cust_pkg/Import.pm +++ b/FS/FS/cust_pkg/Import.pm @@ -170,8 +170,9 @@ sub batch_import { my $format = delete $opt->{'format'}; my @fields = (); - if ( $format =~ /^(.*)-agent_custid$/ ) { + if ( $format =~ /^(.*)-agent_custid(-agent_pkgid)?$/ ) { $format = $1; + my $agent_pkgid = $2; @fields = ( sub { my( $self, $value ) = @_; # $conf, $param @@ -182,6 +183,7 @@ sub batch_import { $self->custnum($cust_main->custnum) if $cust_main; }, ); + push @fields, 'agent_pkgid' if $agent_pkgid; } else { @fields = ( 'custnum' ); } |