From: ivan <ivan>
Date: Tue, 14 Nov 2006 03:30:10 +0000 (+0000)
Subject: Tie::IxHash data disappears when sent with Storable
X-Git-Tag: TRIXBOX_2_6~864
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=6d891eee72cf63362601e0823c52c6e9a4aed826

Tie::IxHash data disappears when sent with Storable
---

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