#remove nullability if scalar(@migrated) - $count == 0 && ->column('action');
#seek expirations/adjourns without reason
- foreach my $field qw( expire adjourn cancel susp ) {
+ foreach my $field (qw( expire adjourn cancel susp )) {
my $addl_from =
"LEFT JOIN h_cust_pkg ON ".
"(cust_pkg_reason.pkgnum = h_cust_pkg.pkgnum AND".
}
#seek cancels/suspends without reason, but with expire/adjourn reason
- foreach my $field qw( cancel susp ) {
+ foreach my $field (qw( cancel susp )) {
my %precursor_map = ( 'cancel' => 'expire', 'susp' => 'adjourn' );
my $precursor = $precursor_map{$field};
=head1 BUGS
-Here be termites. Don't use on wooden computers.
-
=head1 SEE ALSO
L<FS::Record>, schema.html from the base documentation.