my %formatfields = (
'default' => [],
+ 'all_dates' => [],
'svc_acct' => [qw( username _password domsvc )],
'svc_phone' => [qw( countrycode phonenum sip_password pin )],
'svc_external' => [qw( id title )],
$cust_location->set($1, $param->{$p});
}
-warn Dumper $cust_location; # XXX
my $error = $cust_location->find_or_insert; # this avoids duplicates
return "error creating location: $error" if $error;
$record->set('locationnum', $cust_location->locationnum);
push @fields, ( 'pkgpart', 'discountnum' );
- foreach my $field (
- qw( start_date setup bill last_bill susp adjourn cancel expire )
- ) {
+ my @date_fields = ();
+ if ( $format =~ /all_dates/ ) {
+ @date_fields = qw(
+ order_date
+ start_date setup bill last_bill susp adjourn
+ resume
+ cancel expire
+ contract_end dundate
+ );
+ } else {
+ @date_fields = qw(
+ start_date setup bill last_bill susp adjourn
+ cancel expire
+ );
+ }
+
+ foreach my $field (@date_fields) {
push @fields, sub {
my( $self, $value ) = @_; # $conf, $param
#->$field has undesirable effects