X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Freason_type.pm;h=1d049861d92527264302ebc0b3131b553520ab7d;hp=a727ccd0a9262346d098825b2695368ed0bf2ce6;hb=dc83512c36dc6bea2585abada4f88d714c600e55;hpb=c82e10e2a7af8039962b3f2bd8df4050977c279c

diff --git a/FS/FS/reason_type.pm b/FS/FS/reason_type.pm
index a727ccd0a..1d049861d 100644
--- a/FS/FS/reason_type.pm
+++ b/FS/FS/reason_type.pm
@@ -3,17 +3,18 @@ package FS::reason_type;
 use strict;
 use vars qw( @ISA );
 use FS::Record qw( qsearch qsearchs );
+use Tie::IxHash;
 
 @ISA = qw(FS::Record);
 
-tie our %class_name, Tie::IxHash, (  
+tie our %class_name, 'Tie::IxHash', (  
   'C' => 'cancel',
   'R' => 'credit',
   'S' => 'suspend',
   'F' => 'refund',
-  'X' => 'void credit',
-  'I' => 'void invoice',
-  'P' => 'void payment',
+  'X' => 'credit void',
+  'I' => 'invoice void',
+  'P' => 'payment void',
 );
 
 our %class_purpose = (