fixing option order in export to read mailbox status information, RT#15987

[freeside.git] / FS / FS / part_export / acct_sql.pm

diff --git a/FS/FS/part_export/acct_sql.pm b/FS/FS/part_export/acct_sql.pm
index fa17afe..ffe39ca 100644 (file)
--- a/FS/FS/part_export/acct_sql.pm
+++ b/FS/FS/part_export/acct_sql.pm
@@ -3,9 +3,10 @@ use base qw( FS::part_export::sql_Common );
 
 use strict;
 use vars qw( %info );
+use Tie::IxHash;
 use FS::Record; #qw(qsearchs);
 
-my %options = __PACKAGE__->sql_options;
+tie my %options, 'Tie::IxHash', %{__PACKAGE__->sql_options};
 $options{'crypt'} = { label => 'Password encryption',
                       type=>'select', options=>[qw(crypt md5 sha1_base64)],
                       default=>'crypt',