my %formatfields = (
'default' => [],
+ 'all_dates' => [],
'svc_acct' => [qw( username _password domsvc )],
'svc_phone' => [qw( countrycode phonenum sip_password pin )],
'svc_external' => [qw( id title )],
@fields = ( 'custnum' );
}
+ if ( $format =~ /^(.*)-locationnum$/ ) {
+ $format = $1;
+ push @fields, 'locationnum';
+ }
+
push @fields, ( 'pkgpart', 'discountnum' );
my @date_fields = ();