diff options
author | jeff <jeff> | 2007-12-04 18:20:58 +0000 |
---|---|---|
committer | jeff <jeff> | 2007-12-04 18:20:58 +0000 |
commit | e8a09e945986a32f9b7d0a5d546142ada91654ca (patch) | |
tree | e0439507bc510ae41ef9b02c0b34bef3a9313863 /FS/FS/cust_pkg.pm | |
parent | b8a41c45daf3e4cfa21200f5d9e59e38bd41293c (diff) |
change credit reasons from freetext to new reason/reason type system (#2777)
Diffstat (limited to 'FS/FS/cust_pkg.pm')
-rw-r--r-- | FS/FS/cust_pkg.pm | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index e09b8ab..71ae0ad 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -229,9 +229,11 @@ sub insert { my $amount = sprintf( "%.2f", $part_pkg->base_recur / $part_pkg->freq ); my $error = - $referring_cust_main->credit( $amount, - 'Referral credit for '. $cust_main->name - ); + $referring_cust_main-> + credit( $amount, + 'Referral credit for '.$cust_main->name, + 'reason_type' => $conf->config('referral_credit_type') + ); if ( $error ) { $dbh->rollback if $oldAutoCommit; return "Error crediting customer ". $cust_main->referral_custnum. @@ -523,10 +525,12 @@ sub cancel { # Add a credit for remaining service my $remaining_value = $self->calc_remain(time=>$cancel_time); if ( $remaining_value > 0 && !$options{'no_credit'} ) { + my $conf = new FS::Conf; my $error = $self->cust_main->credit( - $remaining_value, - 'Credit for unused time on '. $self->part_pkg->pkg, - ); + $remaining_value, + 'Credit for unused time on '. $self->part_pkg->pkg, + 'reason_type' => $conf->config('cancel_credit_type'), + ); if ($error) { $dbh->rollback if $oldAutoCommit; return "Error crediting customer \$$remaining_value for unused time on". |