fix TeleAPI import (what kind of crack was Christopher smoking that he couldn't fix...

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

diff --git a/FS/FS/reason_type.pm b/FS/FS/reason_type.pm
index a727ccd..1d04986 100644 (file)
--- 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 = (