'manual_flag', 'char', 'NULL', 1, '', '',
'no_auto', 'char', 'NULL', 1, '', '',
'quantity', 'int', 'NULL', '', '', '',
+ 'agent_pkgid', 'int', 'NULL', '', '', '',
],
'primary_key' => 'pkgnum',
'unique' => [],
'index' => [ ['custnum'], ['pkgpart'], [ 'pkgbatch' ], [ 'locationnum' ],
- [ 'usernum' ],
+ [ 'usernum' ], [ 'agent_pkgid' ],
[ 'start_date' ], ['setup'], ['last_bill'], ['bill'],
['susp'], ['adjourn'], ['expire'], ['cancel'],
['change_date'], ['order_date'],
|| $self->ut_numbern('adjourn')
|| $self->ut_numbern('expire')
|| $self->ut_enum('no_auto', [ '', 'Y' ])
+ || $self->ut_numbern('agent_pkgid')
;
return $error if $error;
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
$self->custnum($cust_main->custnum) if $cust_main;
},
);
+ push @fields, 'agent_pkgid' if $agent_pkgid;
} else {
@fields = ( 'custnum' );
}