Merge branch 'master' of https://github.com/jgoodman/Freeside

[freeside.git] / FS / FS / reason_type.pm

diff --git a/FS/FS/reason_type.pm b/FS/FS/reason_type.pm
index 4425c64..00ac9a8 100644 (file)
--- a/FS/FS/reason_type.pm
+++ b/FS/FS/reason_type.pm
@@ -10,12 +10,14 @@ our %class_name = (
   'C' => 'cancel',
   'R' => 'credit',
   'S' => 'suspend',
+  'F' => 'refund',
 );
 
 our %class_purpose = (  
   'C' => 'explain why a customer package was cancelled',
   'R' => 'explain why a customer was credited',
   'S' => 'explain why a customer package was suspended',
+  'F' => 'explain why a customer was refunded',
 );
 
 =head1 NAME
@@ -131,12 +133,7 @@ sub enabled_reasons {
                     } );
 }
 
-# _populate_initial_data
-#
 # Used by FS::Setup to initialize a new database.
-#
-#
-
 sub _populate_initial_data {  # class method
   my ($self, %opts) = @_;
 
@@ -169,12 +166,7 @@ sub _populate_initial_data {  # class method
 
 }
 
-# _upgrade_data
-#
 # Used by FS::Upgrade to migrate to a new database.
-#
-#
-
 sub _upgrade_data {  # class method
   my ($self, %opts) = @_;