X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Freason_type.pm;h=4425c64a07693a055681d804891306e049bc7a0c;hb=b79a8cb932946c849328a3c117c35821d9d21e66;hp=193d47e532a43d7f5cf959755ee47fdf0b8b9d04;hpb=e8a09e945986a32f9b7d0a5d546142ada91654ca;p=freeside.git

diff --git a/FS/FS/reason_type.pm b/FS/FS/reason_type.pm
index 193d47e53..4425c64a0 100644
--- a/FS/FS/reason_type.pm
+++ b/FS/FS/reason_type.pm
@@ -13,9 +13,9 @@ our %class_name = (
 );
 
 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',
 );
 
 =head1 NAME
@@ -162,9 +162,7 @@ sub _populate_initial_data {  # class method
 #   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);
   }
 
   '';