X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Facct_sql.pm;h=8163f2017f72bd1960fc0f75d53248a2bd6c790e;hb=38e34bbc53a4222c7507e95914e1364a5a74623f;hp=e5e9d7e389cb67c3ab48defae834c11592aa3421;hpb=2c2cbb6a21e294dcd10a2c1ffdb560291deefc41;p=freeside.git

diff --git a/FS/FS/part_export/acct_sql.pm b/FS/FS/part_export/acct_sql.pm
index e5e9d7e38..8163f2017 100644
--- a/FS/FS/part_export/acct_sql.pm
+++ b/FS/FS/part_export/acct_sql.pm
@@ -3,13 +3,14 @@ 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} };#a new hashref so we don't pollute
-$options->{'crypt'} = { label => 'Password encryption',
-                        type=>'select', options=>[qw(crypt md5 sha1_base64)],
-                        default=>'crypt',
-                      };
+tie my %options, 'Tie::IxHash', %{__PACKAGE__->sql_options};
+$options{'crypt'} = { label => 'Password encryption',
+                      type=>'select', options=>[qw(crypt md5 sha1_base64)],
+                      default=>'crypt',
+                    };
 
 tie my %vpopmail_map, 'Tie::IxHash',
   'pw_name'   => 'username',
@@ -59,11 +60,13 @@ my $postfix_native_mailbox_map =
                  keys %postfix_native_mailbox_map      );
 
 %info = (
-  'svc'      => 'svc_acct',
-  'desc'     => 'Real-time export of accounts to SQL databases '.
-                '(vpopmail, Postfix+Courier IMAP, others?)',
-  'options'  => $options,
-  'nodomain' => '',
+  'svc'        => 'svc_acct',
+  'desc'       => 'Real-time export of accounts to SQL databases '.
+                  '(vpopmail, Postfix+Courier IMAP, others?)',
+  'options'    => \%options,
+  'nodomain'   => '',
+  'no_machine' => 1,
+  'default_svc_class' => 'Email',
   'notes'    => <<END
 Export accounts (svc_acct records) to SQL databases.  Currently has default
 configurations for vpopmail and Postfix+Courier IMAP but intended to be