'C' => 'cancel',
'R' => 'credit',
'S' => 'suspend',
+ 'F' => 'refund',
+ 'X' => 'void credit',
);
our %class_purpose = (
- 'C' => 'explain why we cancel a package',
- 'R' => 'explain why we credit a customer',
- 'S' => 'explain why we suspend a package',
+ 'C' => 'explain why a customer package was cancelled',
+ 'R' => 'explain why a customer was credited',
+ 'S' => 'explain why a customer package was suspended',
+ 'X' => 'explain why a credit was voided',
+ 'F' => 'explain why a customer was refunded',
);
=head1 NAME
=item typenum - primary key
-=item class - currently 'C', 'R', or 'S' for cancel, credit, or suspend
+=item class - currently 'C', 'R', 'S' or 'X' for cancel, credit, suspend, refund or void credit
=item type - name of the type of reason
} );
}
-# _populate_initial_data
-#
# Used by FS::Setup to initialize a new database.
-#
-#
-
sub _populate_initial_data { # class method
my ($self, %opts) = @_;
# my $error = $object->insert();
# die "error inserting $self into database: $error\n"
# if $error;
-# # or clause for 1.7.x
- $conf->set($_, $object->typenum)
- or die "failed setting config";
+ $conf->set($_, $object->typenum);
}
'';
}
-# _upgrade_data
-#
# Used by FS::Upgrade to migrate to a new database.
-#
-#
-
sub _upgrade_data { # class method
my ($self, %opts) = @_;