From 6d891eee72cf63362601e0823c52c6e9a4aed826 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 14 Nov 2006 03:30:10 +0000
Subject: [PATCH] Tie::IxHash data disappears when sent with Storable

---
 FS/FS/Misc.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/FS/FS/Misc.pm b/FS/FS/Misc.pm
index 6024b832a..97ff8ed61 100644
--- a/FS/FS/Misc.pm
+++ b/FS/FS/Misc.pm
@@ -407,17 +407,18 @@ sub state_label {
 
 =item card_types
 
-Returns a hash reference of the accepted credit card types.
+Returns a hash reference of the accepted credit card types.  Keys are shorter
+identifiers and values are the longer strings used by the system (see
+L<Business::CreditCard).
 
 =cut
 
 #$conf from above
-use Tie::IxHash;
 
 sub card_types {
   my $conf = new FS::Conf;
 
-  tie my %card_types, 'Tie::IxHash',
+  my %card_types = (
     #displayname                    #value (Business::CreditCard)
     "VISA"                       => "VISA card",
     "MasterCard"                 => "MasterCard",
@@ -429,7 +430,7 @@ sub card_types {
     "BankCard"                   => "BankCard",
     "Switch"                     => "Switch",
     "Solo"                       => "Solo",
-  ;
+  );
   my @conf_card_types = grep { ! /^\s*$/ } $conf->config('card-types');
   if ( @conf_card_types ) {
     #perhaps the hash is backwards for this, but this way works better for
-- 
2.11.0